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ABSTRACT 

An  Ethernet  is  used  to  connect  an  HP  3000  computer  with  a  VAX 

11/780  computer  to  allow  the  transfer  of  files  from  one  computer  to  the 

other.  A  user  logs  in  on  the  VAX  computer  and  uses  a  one  line  command 

to  send  a  file  to  or  retrieve  a  file  from  the  HP  30OO  computer.  Files 

are  transferred  between  the  user's  directory  on  the  VAX  and  either  a 
specified  directory  or  a  public  "network"  directory  on  the  HP  3000.  The 
file  transfer  system  uses  a  scheme  of  positive  acknowledgement  with 
retransmission  to  prevent  transmission  errors  from  corrupting  the  file. 
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1.  INTHODOCTIOM 

Over  the  past  several  years  there  has  been  a  great  deal  of  Interest 
In  Interconnecting  many  geographically  distributed  computer  systems 
using  computer  networks.  These  networks  range  from  long-haul  networks 
connecting  computers  separated  by  thousands  of  miles  to  multiprocessor 
computers  which  are  separated  by  less  than  a  few  meters.  Local  computer 
networks  are  generally  considered  to  be  those  with  separations  on  the 
order  of  a  few  kilometers  or  less  and  are  usually  contained  within  one 
building  and  used  by  one  organlzetlon[ 1 ] .  Local  networks  are  attractive 
because  they  allow  expensive  system  resources,  such  as  printers  and 
secondary  storage  devices,  to  be  shared  among  several  independent  com¬ 
puter  systems.  Vlth  the  rise  in  popularity  of  personal  computers,  a 
great  deal  of  work  has  been  done  on  local  networks  to  connect  these 
small  systems  and  produce  some  standards! 2]. 

This  thesis  describes  an  Implementation  of  a  local  computer  network 
that  allows  the  transfer  of  files  from,  one  of  the  host  computers  on  the 
network  to  another  host.  This  local  network  uses  an  Ethernet  to  inter¬ 
connect  a  VAX  11/780  computer  and  a  Hewlett-Packard  HP  3000  computer. 
The  system  allows  a  user  to  log  in  on  the  VAX  and  use  a  simple  one  line 
command  to  transfer  any  file  to  the  HP  3000  or  receive  any  file  from  the 
HP  3000. 

1.1.  Ethernet  Deserlotlon 

Ethernet  is  a  registered  trademark  of  the  Xerox  Corporation  used  to 
refer  to  a  particular  method  of  iaplementing  a  local  computer  net- 
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work[3].  This  Ethernet  employs  packet  broadcasting  with  several  sta¬ 
tions  connected  together  by  a  common  transmission  medium*  Every  station 
on  the  network  can  receive  every  trauismission  of  every  other  station.  A 
station  is  any  device,  such  as  a  computer  or  a  printer,  that  can  commun¬ 
icate  on  the  network.  The  Ethernet  concept  is  predicated  on  the  assump¬ 
tion  that  computer  traffic  is  bursty.  Thus  several  stations  can  effi¬ 
ciently  share  the  common  transmission  medium  using  time-division  multi¬ 
plexing.  This  concept  of  packet  broadcasting  originated  with  the  Aloha 
Network  which  was  developed  at  the  University  of  Hawaii  to  connect 
together  several  computer  sites  with  radio[4].  Ethernet  is  classified 
as  a  "carrier-sense  multiple  access  with  collision  detection"  (CSMA/CD) 
network  which  means  that  multiple  stations  are  able  to  sense  the  state 
of  the  medium  before  transmission  and  also  detect  if  another  station  is 
causing  interference. 

The  Ethernet  baa  a  central  interconnection  medium  with  network  con¬ 
trol  distributed  among  the  stations.  This  interconnection  medium  is 
completely  passive  and  is  usually  a  standard  coaxial  cable,  referred  to 
by  the  developers  at  Xerox  as  the  "ether."  The  name  "ether"  is  from  the 
historical  "luminiferous  ether"  through  which  electromagnetic  radiation 
was  once  thought  to  propagate.  The  topology  of  this  cable  must  be  an 
unrooted  tree.  The  tree  requirement  prevents  multiple  paths  between  any 
two  stations  on  the  cable  so  no  transmitted  packet  can  interfere  with 
Itself.  It  is  unrooted  in  the  sense  that  the  cable  can  be  extended  in 
any  direction  by  simply  tapping  into  the  cable  at  any  point.  The  ends 
of  the  cable  must  be  properly  terminated  with  a  passive  resistance  whose 
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value  Is  the  same  as  the  nominal  cable  impedance  to  prevent  echoes  and 
reflections. 

Access  to  the  network  Is  shared  among  the  stations  on  a  contention 
basis.  When  a  station  wants  to  transmit  a  packet,  it  first  listens  to 
the  ether  to  see  If  It  Is  already  In  use  by  another  station.  If  It  is 
in  use,  the  new  station  simply  waits  until  the  other  packet  is  finished 
transmitting.  When  the  ether  is  clear,  the  station  waiting  to  transmit 
seizes  the  ether  and  begins  transmitting  its  packet.  This  sending  sta¬ 
tion  monitors  its  own  transmission  to  make  sure  that  it  is  not  colliding 
with  another  station  trying  to  transmit  at  the  same  time.  If  a  colli¬ 
sion  is  detected,  each  station  aborts  its  transmission  and  waits  a  ran¬ 
dom  period  of  time  before  attempting  to  retransmit.  Once  the  station  is 
able  to  seize  the  ether  without  a  collision,  it  transmits  its  entire 
packet. 

Each  station  on  the  network  is  assigned  a  unique  eight-bit  station 
address  that  is  used  by  the  other  stations  to  specify  the  desired  desti¬ 
nation  of  a  packet.  Using  eight  bits  for  the  address  limits  the  number 
of  stations  on  the  network  to  256.  In  practice,  most  Ethernets  limit 
the  nvimber  of  stations  to  255  and  use  one  of  the  addresses,  usually  the 
zero  address,  as  a  broadcast  address.  Normally  a  station  examines  the 
destination  address  of  every  packet  on  the  ether,  but  it  will  respond 
only  to  its  own  address  or  to  the  broadcast  address.  Broadcast  is  use¬ 
ful  for  sending  all  of  the  stations  the  same  packet,  such  as  time  of  day 
information  or  a  system  message.  In  most  Ethernet  systems,  broadcast 
messages  are  not  acknowledged  by  the  individual  stations. 
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Reliability  in  Ethernet  is  based  on  simplicity  of  design.  By  hav¬ 
ing  a  passive  centred  interconnect  and  distributed  control,  if  one  sta¬ 
tion  should  go  down  for  some  reason,  it  can  be  disconnected  with  no 
effect  on  the  rest  of  the  network,  except,  of  course,  that  the  services 
provided  by  that  station  will  no  longer  be  available.  Due  to  the  sim¬ 
plicity  of  this  system,  packets  are  correctly  delivered  to  their  desti¬ 
nations  with  only  a  high  probability  of  success.  Some  packets  will  be 
lost  due  to  collisions  with  other  packets.  Interference  from  electromag¬ 
netic  noise,  and  being  discarded  by  the  intended  receiver.  Error  con¬ 
trol  for  packet  transmissions  must  be  dealt  with  at  a  higher  level  and 
is  not  a  concern  of  this  low-level  Ethernet  protocol. 

1.2.  Lftyela  Erotofiol 

As  with  most  complex  systems,  this  computer  network  is  best 
developed  at  several  different  levels  with  each  level  being  logically 
distinct  from  the  others.  There  are  basically  four  different  levels  of 
protocol  used  to  provide  communication  between  the  two  computers  on  this 
network.  The  lowest  level,  which  is  the  Ethernet  protocol  described 
above,  is  Implemented  in  a  microprocessor  based  controller,  with  one 
controller  required  for  each  host.  The  remaining  three  levels  of  proto¬ 
col  are  Implemented  entirely  in  software  on  the  host  computers  and 
represent  the  main  work  of  this  thesis. 

The  second  level  of  protocol,  the  host  to  controller  communication 
protocol,  is  concerned  with  how  each  host  sends  commands  to  the  slave 
controller  and  how  the  host  receives  packets  from  the  Ethernet  that  have 
been  buffered  within  the  controller.  The  next  level  of  protocol  is  the 
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file  transfer  protocol  which  Is  used  to  effect  the  actual  transfer  of 
files  between  the  two  host  computers  and  provides  the  error  control 
mechanism  that  Is  missing  from  the  lower-level  Ethernet  protocol.  The 
highest  level  of  protocol  used  In  this  network  communicates  with  the 
user  to  allow  an  easy  mechanism  to  transfer  files.  Within  this  level  Is 
a  sub-protocol  that  Initiates  communication  between  the  two  host  comput¬ 
ers  before  a  file  can  be  transferred.  When  all  of  these  levels  are  put 
together,  a  user  can  simply  log  In  on  the  VAX  and,  using  a  simple  com¬ 
mand,  can  trauisfer  files  to  and  receive  files  from  the  HP  3000. 
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Z.  HOST  TO  CQNTBOLLER  COMMUNICATION 

The  Ethernet  concept  requires  each  machine  on  the  network  to  have 
an  Intelligent  controller  to  Interface  with  the  ether.  This  controller 
can  be  the  host  machine  Itself,  but  It  Is  desirable  to  have  a  separate 
device  dedicated  to  the  network  connection.  This  prevents  the  host  from 
being  burdened  with  the  low-level  protocols  of  the  network  and  allows  it 
to  concentrate  on  higher-level  protocols  and  user  processes. 

This  separation  of  host  aikl  network  controller  requires  that  scmie 
communication  link  exist  between  these  two  devices.  This  link  could  use 
a  dedicated  parallel  Input/output  port  or  a  simple  serial  Interface. 
Also  required  Is  the  existence  of  some  protocol  for  communication 
between  the  two  devices.  The  complexity  of  this  protocol  will  vary 
depending  upon  the  computational  power  and  the  relative  speeds  of  the 
host  8uid  the  controller. 

2..1.  General  Host/Controller  Communication 

The  local  network  described  in  this  thesis  uses  a  network  con¬ 
troller  designed  and  built  by  Joseph  Ayala  at  the  Coordinated  Science 
Laboratory [5].  This  controller  uses  a  microprocessor  for  its  basic 
Intelligence  and  a  specially  designed  board  for  the  bit  transfers  on  the 
ether.  The  controller  Is  connected  to  the  host  computer  with  a  standard 
RS232  serial  interface  line  and  appears  to  the  host  as  a  terminal.  By 
using  this  standard  Interface,  the  controller  Is  very  portable  and  can 
be  easily  moved  to  another  host  with  little  or  no  modification.  The 
penalty  for  this  portability  Is  the  relatively  slow  speed  of  the  serial 
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transfers  over  the  communication  link,  which  in  this  case  is  limited  to 
9600  baud. 

The  controller  is  configured  in  a  "null  modem"  fashion,  thereby 
allowing  it  to  be  connected  directly  to  the  terminal  ports  of  most  com¬ 
puters  without  swapping  the  transmit  and  receive  wires.  The  controller 
requires  the  DSR  (data  set  ready)  signal  from  the  host  to  be  active,  but 
it  can  be  used  with  three  wire  systems  by  connecting  pins  6  and  20 
together  on  the  25-pin  host-to-controller  EIA  connector.  This  Jumper 
connects  the  controller's  OTR  (data  terminal  ready)  signal  to  its  DSR 
connection  and  thus  eliminates  the  need  for  the  host  to  supply  the  DSR 
signal. 

The  communication  protocol  designed  into  this  controller  requires 
the  host  to  initiate  all  communication  by  sending  a  single  byte  command 
with  the  controller  ^□.ways  responding  by  returning  two  bytes  to  the 
host.  This  initiation  responsibility  requires  a  program  to  be  running 
on  the  host  to  communicate  with  the  controller.  That  is,  the  controller 
does  not  functionally  look  Just  like  a  terminal  to  the  host,  but 
requires  a  special  intelligent  process  to  be  running  on  the  host. 

Within  this  protocol,  there  are  four  basic  commands  that  the  host 
can  issue  to  the  controller.  These  commands  are  shown  in  Table  1 .  The 
enquiry  command  (ENQ)  causes  the  controller  to  return  its  station 
address  byte  and  its  current  status  byte.  The  station  address  is  the 
unique  eight  bit  network  address  to  which  the  controller  will  respond 
when  there  is  a  packet  sent  on  the  ether.  The  status  byte  Indicates  the 
current  status  of  the  controller  itself.  The  bit  format  of  the  status 


Table  1 .  Controller  Command  Bytes 


Command 

Hex  Code 

Description 

ENQ 

05 

Enquire 

SEND 

11 

Send  a  packet 

SOH 

01 

Start  of  header 

ACK 

06 

Acknowledgement 

SEC 

12 

Receive  a  packet 

NAK 

15 

Negative  acknowledgement 

CAN 

18 

Cancel  last  receive  request 

byte  Is  shown  1.  Table  2.  This  command  is  useful  for  initializing  the 
station  address  in  the  host's  software  and  for  checking  the  status  of 
the  controller.  Also,  since  the  controller  will  not  respond  if  it  is 
not  turned  on  and  operating,  ENQ  can  be  used  to  test  this  condition. 
Once  set,  the  status  bits  can  only  be  reset  by  a  manual  reset  of  the 
controller.  This  fact  limits  the  usefulness  of  ENQ.  The  software 
developed  in  this  research  actually  uses  ENQ  only  to  initialize  the  sta- 


Table  2.  Status  Byte  Description 


Bit  no.  Meaning  when  logic  1 

0  Always  0 . 

1  Transmit  aborted  due  to  excess  collisions. 

2  Receive  aborted  due  to  "cancel"  command. 

3  Command  from  host  not  recognized. 

4  Receiver  overrun  -  error  on  communication  link  to  host. 

5  Checksum  error  in  the  received  packet. 

6  Received  packet  did  not  contain  multiple  of  8  bits. 

7  Received  packet  exceeded  1024  bytes  in  length. 
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tion  address  and  to  test  if  the  controller  is  turned  on  and  operating. 

The  send  conmand  (SEND)  prepares  the  controller  to  send  a  packet 
over  the  net.  The  packets  can  be  a  Dinimuo  of  two  bytes  in  length  (for 
the  source  and  destination  addresses),  and  a  maximum  of  1024  bytes  (lim¬ 
ited  by  the  size  of  the  buffer  .within  the  controller) .  The  sending  con¬ 
troller  hardware  appends  a  two  byte  CRC  (cyclic  redundancy  code)  check¬ 
sum  to  the  packet,  but  this  is  unavailable  to  the  host.  After  receiving 
a  SEND  byte,  the  controller  responds  with  a  ”start-of -header"  byte  (SOH) 
and  a  null  byte  (to  pad  its  response  to  the  standard  two  bytes).  The 
host  then  sends  the  two  byte  length  of  its  packet,  low  byte  first,  and 
waits  for  an  acknowledgement  byte  (ACK).  When  the  ACK  arrives,  the  host 
sends  its  entire  packet  to  the  controller  which  buffers  it  and  transmits 
it  when  the  ether  is  clear.  Note  that  the  SEND  command  is  required  once 
for  each  packet  to  be  sent. 

To  receive  a  packet  from  the  net,  the  host  must  first  issue  the 
receive  (NEC)  command.  This  causes  the  controller  to  listen  to  the 
ether,  waiting  for  a  packet  with  its  station  address  or  the  broadcast 
station  address.  When  a  packet  directed  to  it  is  received,  the  con¬ 
troller  reads  the  packet  into  its  buffer  and  Informs  the  host  with 
either  an  acknowledgement  (ACK),  if  the  packet  was  received  correctly, 
or  a  negative  acknowledgement  (NAK),  if  the  packet  was  damaged.  The 
host  can  then  either  read  the  packet  or  cancel  the  receive  request.  To 


read  the  packet,  the  host  sends  the  SOH  byte  to  the  controller,  which 
then  responds  with  the  two  byte  length,  low  byte  first.  The  host  fol¬ 
lows  with  an  ACK  byte  causing  the  controller  to  send  the  entire  packet 
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to  the  host  and  return  to  its  idle  state  waiting  for  the  next  command. 
If  instead  the  host  wants  to  cancel  the  receive,  it  can  send  the  con¬ 
troller  a  cancel  command  (CAN)  which  returns  the  controller  to  its  nor¬ 
mal  idle  state  and  makes  the  received  packet  unavailable  to  the  host. 
Note  that  the  NEC  command  must  be  Issued  once  before  each  packet  the 
host  expects  to  receive. 

This  simple  protocol  must  be  strictly  followed  for  proper  transfers 
to  take  place  between  the  host  and  the  controller.  Any  deviation  from 
this  protocol  may  confuse  the  controller  and  cause  it  to  "hang”  in  an 
indeterminate  state.  It  then  must  be  reset  manually. 

JlalD&  lil  ll/I&flL  Aa  A 

A  VAX  computer  running  under  the  UNIX  timesharing  operating  syst«B 
is  used  as  one  of  the  hosts  in  this  local  network.  UNIX  is  written 
mainly  in  the  programming  language  C  and  allows  user  programs  written  in 
C  to  Interface  directly  with  the  operating  system[6].  This  capability 
allows  the  user  a  great  deal  of  flexibility  in  interfacing  nonstandard 
devices,  such  as  the  network  controller,  to  the  computer.  UNIX  treats 
all  input/output  requests  as  accesses  to  a  file,  specifically,  requests 
to  access  terminal  ports  are  treated  exactly  as  requests  to  read  or 
write  data  on  disc  files.  This  convention  allows  one  standard  Interface 
between  the  user's  program  and  the  operating  system. 


As  mentioned  previously,  the  controller  connects  to  the  host 
through  a  standard  terminal  port.  To  access  this  port,  the  user  program 
must  open  it  using  the  "open"  procedure  call  available  in  the  standard 
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input/ output  library  "<stdio.h>.''[7]  Tbia  procedure  expects  as  parame¬ 
ters  the  name  of  the  port  and  the  type  of  access  required.  The  name  is 
specified  as  Vdev/ttyx”  where  z  is  the  terminal  port  number  to  which 
the  controller  is  connected,  and  the  access  type  is  the  integer  2  which 
specifies  read/write  access.  This  procedure  call  returns  an  Integer 
which  is  then  used  to  identify  the  port  in  subsequent  read/write 
requests. 

After  the  port  is  opened,  it  must  be  configured  using  the  "set  ter¬ 
minal  options”  procedure  (stty)  available  in  the  ”<sgtty.h>”  libraryC?]* 
This  procedure  allows  the  user  to  change  default  options  in  the  terminal 
driver.  For  the  network  controller  the  options  are  chadged  so  that  the 
input  and  output  speeds  are  set  to  9600  baud  and  the  mode  is  selected  as 
RAW  and  ANTP.  RAW  means  that  all  characters  are  passed  to  and  from  the 
port  untouched  with  no  processing  done  on  the  characters  and  no  special 
characters,  such  as  "break,”  being  recognized.  The  ANYP  flag  means  that 
any  parity  is  allowed,  i.e.  the  parity  bit  is  Ignored. 

Once  the  port  is  opened  and  configured,  the  user's  program  can  read 
and  write  to  the  port  using  the  "read"  and  "write"  procedures  available 
in  the  standard  C  input/ output  library.  These  procedures  allow  the  pro¬ 
gram  to  transfer  many  bytes  at  a  time  from  a  buffer  within  the  program 
to  the  port  and  to  read  many  bytes  from  the  port  into  the  program's 
buffer.  In  most  cases,  single  byte  transfers  are  the  simplest  to  imple¬ 
ment  and  are  not  much  slower  than  multi-byte  transfers  since  UNIX 
already  buffers  the  port  transparently  to  the  user. 
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It  Should  be  noted  that  before  the  port  can  be  properly  configured, 
the  user  must  make  sure  that  no  other  process  is  running  on  that  port. 
Specifically,  UNIX  normally  has  a  process  called  "getty"  running  on  each 
terminal  port[7]«  This  process  Initiates  the  login  procedure  when  the 
port  Is  used  for  normal  Interactive  sessions.  This  "getty"  process  ties 
up  the  port  and  prevents  normal  access  to  the  controller.  Also,  since 
the  network  controller  Is  not  an  Interactive  terminal,  the  "getty”  pro¬ 
cess  will  not  respond  correctly  to  the  controller's  protocol.  Conse¬ 
quently,  the  process  must  be  removed  by  the  system  management  from  any 
port  to  which  the  controller  Is  to  be  connected.  Once  this  Is  done,  the 
port  can  be  opened  and  configured  as  described  above. 

Using  the  HP  ^000  as  jl  Host 

The  other  host  computer  used  In  this  local  network  Is  a  Hewlett- 
Packard  HP  3000  running  the  MPE  (Multi- Programming  Executive)  operating 
system.  Systems  programming  on  the  HP  3000  Is  best  accomplished  using 
the  Hewlett-Packard  language  SPL  (Systems  Programming  Language)  since  It 
allows  the  most  direct  Interface  to  the  operating  system[6].  As  In  the 
VAX,  the  HP  3000  treats  all  Input/ output  requests  as  accesses  to  a  file. 
Thus  data  transfer  to  and  from  a  terminal  port  Is  accomplished  In  the 
same  manner  as  data  transfer  to  and  from  a  file. 

The  software  terminal  drivers  on  the  HP  3000  are  optimized  to  work 
with  Hewlett-Packard  terminals  and  present  a  few  problems  when  trying  to 
Interface  non-standard  devices  to  the  terminal  ports.  The  drivers  asso¬ 
ciate  a  record  size  with  each  terminal  which  specifies  the  maximum  size 
of  each  transfer  between  the  terminal  and  the  computer.  Each  line  Is 
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delimited  by  a  carriage  return  or  by  this  maximum  record  size.  If  the 
record  size  of  the  terminal  la  specified  to  be  greater  than  eighty  char¬ 
acters,  then  the  driver  uses  an  "enquire-acknowledge"  protocol  for  all 
transfers  to  the  terminal.  This  means  that  the  computer  will  send  out 
an  enquire  byte  (ENQ)  to  the  terminal  before  it  transfers  any  informa¬ 
tion.  It  will  then  wait  for  an  acknowledgement  byte  (ACK)  indicating 
that  the  terminal  is  ready.  This  protocol  is  necessary  to  prevent  the 
computer  from  overwhelming  slow  terminals  with  too  much  information  at 
once.  Unfortunately,  the  network  controller  does  not  respond  correctly 
to  this  protocol. 

I 

Another  problem  in  the  terminal  driver  is  that  whenever  the  com¬ 
puter  expects  input  from  the  terminal,  it  sends  out  an  ASCII  *^01 ”  byte. 
This  is  supposed  to  alert  the  terminal  that  it  can  now  send  its  informa¬ 
tion  to  the  computer.  The  problem  in  the  network  controller  is  that 
this  byte  is  Interpreted  as  the  SEND  command  and  sets  up  the  controller 
to  send  a  packet  over  the  net.  Obviously,  this  is  not  compatible  with 
the  Intended  use  of  this  byte  by  the  terminal  driver. 

Both  of  of  these  problems  must  be  eliminated  before  the  controller 
can  be  used  with  the  HP  3000.  One  solution  would  be  to  reprogram  the 
microcomputer  Inside  the  controller  to  respond  correctly  to  this  proto¬ 
col.  While  this  could  be  done  relatively  easily,  it  is  not  a  very  good 
solution  because  the  controller  would  no  longer  be  portable.  A  better 
solution,  described  below,  is  to  eliminate  both  problems  and  allow  the 
user's  program  to  handle  its  own  protocol.  This  solution  was  adopted  in 
this  design. 
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The  enqulre-acknowledge  problem  is  eliminated  by  specifying  the 
record  size  of  the  terminal  port  to  be  fewer  than  80  characters  when  the 
port  is  opened.  The  "DCI”  problem  is  eliminated  by  specifying  the  ter¬ 
minal  to  be  type  18.  This  terminal  type  is  not  documented  in  the  HP 
3000  manuals  and  the  Information  regarding  type  18  terminals  was 
obtained  through  the  courtesy  of  the  Hewlett-Packard  Company.  Type  18 
can  be  specified  by  using  either  the  MPE  intrinsic  procedure  FCONTROL  to 
allocate  the  terminal  to  the  program  as  type  18,  or  by  specifying  type 
18  for  the  required  port  in  the  system  configuration  table.  Using  this 
terminal  type  effectively  eliminates  the  built-in  protocol  in  the  termi¬ 
nal  driver. 

Before  the  controller  can  be  accessed  by  the  user’s  program,  the 
terminal  port  to  which  it  is  connected  must  be  opened  using  the  POPEN 
lntrlnslc[9] .  The  required  parameters  are  a  bit  string  indicating  the 
file  type,  another  bit  string  indicating  the  access  options,  an  Integer 
specifying  the  record  size,  and  the  name  or  logical  device  number  of  the 
controller's  port.  This  procedure  call  returns  an  integer  which  is  then 
used  to  identify  the  file  in  subsequent  accesses.  Once  the  port  is 
opened,  it  must  be  further  configured  using  the  FCONTROL  intrinsic  to 
select  certain  options.  This  intrinsic  is  used  to  turn  off  the 
automatic  echo  of  input  characters;  disable  the  input  timer;  disable 
block  mode  transfers  (part  of  the  enqulre-acknowledge  protocol);  enable 
binary  transfers  (to  pass  all  eight  data  bits);  and  disable  the  parity, 
treating  each  bit  as  a  valid  data  bit.  Also,  the  FSETMODE  intrinsic 
must  be  called  to  inhibit  the  automatic  carriage  return/line  feed 
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sequence  after  each  input  from  the  controller.  After  all  of  this  is 
done,  the  controller  is  ready  to  be  accessed. 

The  MPE  operating  system  provides  two  Intrinsios  to  read  and  write 
files  —  FREAD  and  FWRITE.  Each  of  these  allow  the  user  to  specify  the 
file  number,  the  buffer  to  be  used  (this  buffer  must  be  supplied  within 
the  user's  program),  and  the  number  of  bytes  to  be  transferred.  FWRITE 
also  allows  a  carriage  control  byte  to  be  sent  with  each  transfer.  This 
should  be  specified  as  ”%320"  which  means  that  no  carriage  control 
should  be  sent.  If  the  multirecord  option  was  specified  In  the  access 
options  parameter  of  the  FOPEN  call,  then  the  number  of  bytes 
transferred  does  not  have  to  be  fewer  than  the  specified  record  size. 
The  read  or  write  will  simply  transfer  as  many  bytes  as  are  requested  In 
the  procedure  call.  The  multirecord  option  effectively  circumvents  the 
80  character  limit  set  above  to  avoid  the  enqulre-acknowledge  problem. 
Packets  up  to  the  maximum  length  allowed  by  the  controller  can  then  be 
sent  and  received  by  the  HP  3000. 

The  first  problem  encountered  in  reading  from  and  writing  to  the 
controller  Is  that  the  controller  responds  too  quickly.  That  is,  after 
a  command  is  sent  to  the  controller.  It  responds  before  the  program  run¬ 
ning  on  the  HP  3000  can  execute  the  read  procedure.  This  problem  arises 
here  since  the  computer  does  not  automatically  buffer  data  coming  from 
terminals  unless  It  Is  already  expecting  some  form  of  Input.  The  solu¬ 
tion  to  this  problem  Is  to  set  up  the  read  request  before  sending  any 
command  ,  to  the  controller  by  specifying  the  "no-walt  I/O  option"  In  the 
access  options  parameter  of  the  FOPEN  Intrinsic.  To  execute  this 


Intrinsic  with  this  option,  however,  the  program  must  be  put  into 
"privileged  mode"  using  the  GETPRIVMODE  intrinsic.  After  the  FOPEN  is 
executed,  the  program  can  return  to  its  normal  mode  by  executing  the 
GETUSERMODE  intrinsic. 

Now  to  read  and  write  to  the  controller,  the  program  must  first 
execute  the  FREAD.  This  will  Immediately  return  control  to  the  calling 
procedure  which  should  then  execute  the  FWRITE  to  send  the  command  to 
the  controller,  followed  by  a  call  to  the  lOHAIT  intrinsic  to  finish  the 
read.  The  result  is  that  the  computer  is  waiting  for  the  controller's 
response  even  before  the  command  is  sent  to  the  controller.  The  rapid 
response  is  then  automatically  buffered  by  the  computer  to  be 
transferred  to  the  program  via  the  lOWAIT  call. 

A  problem  encountered  when  using  this  procedure  is  that  the  program 
cannot  set  up  a  read  followed  by  a  write  to  the  sause  file  without  an 
intervening  call  to  lOWAIT.  An  lOHAIT  here  is  improper  since  no  read 
data  would  arrive  until  the  write  has  been  Issued.  The  obvious  solution 
is  to  use  two  different  files,  one  for  read  requests  and  the  other  for 
write  requests.  However,  MPE  will  not  allow  the  same  terminal  port  to 
be  referenced  by  two  different  files  simultaneously.  The  final  solution 
is  to  use  two  different  files,  each  referenced  to  a  physically  separate 
terminal  port.  Unfortunately,  now  two  ports  are  required  at  the  HP  3000 
for  connecting  the  Ethernet  controller. 

To  connect  the  controller  to  two  separate  ports,  a  special  connec¬ 
tor  has  been  fabricated.  The  wiring  for  this  connector  is  shown  in  Fig¬ 
ure  1.  Notice  that  the  transmit  data  and  receive  data  wires  (pins  2  and 
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Figure  1 .  Controller  to  HP  3000  connection 


3)  are  swapped  from  the  controller's  connector  to  the  connector  on  the 
computer.  This  swap  Is  necessary  because  the  terminal  connection  block 
on  the  HP  3000  Is  also  configured  In  a  null  modem  fashion.  Using  this 
connection  arrangement  requires  the  controller  to  occupy  two  terminal 
ports,  one  for  sending  data  to  the  controller  and  the  other  for  reading 
data  from  the  controller.  While  this  arrangement  has  Its  disadvantages, 
It  seems  to  be  tLe  best  solution  available  without  chauoglng  the  program 
within  the  controller  Itself. 

2.1.  Ihe  PACKET  Program 

As  a  demonstration  of  the  host  to  controller  conununlcatlon  proto¬ 
col,  the  program  PACKET  was  written  to  allow  the  transmission  of  packets 
between  the  two  hosts.  A  version  of  this  program  Is  written  In  C  to  run 
on  the  VAX  computer  (see  Appendix  1}  and  another  version  Is  written  In 
SPL  to  run  on  the  HP  3000  computer  (see  Appendix  2} .  The  program  allows 
the  user  to  execute  all  of  the  commands  available  to  the  controller 
(l.e.  SEND,  REC,  ENQ,  and  CAN),  and  allows  packets  to  be  sent  from  a 
terminal  on  either  machine  to  a  terminal  on  the  other  machine. 

When  the  program  Is  run.  It  first  executes  the  ENQ  command  to 
determine  If  the  controller  Is  connected  and  functioning  and  to  Initial¬ 
ize  the  station  address  within  the  PACKET  program.  It  then  prints  this 
address  on  the  terminal  and  requests  the  user  to  supply  the  station 
address  of  the  controller  on  the  other  machine.  After  this  Initializa¬ 
tion  process  Is  completed,  the  program  prints  a  menu  of  available  com¬ 
mands  and  requests  the  user  to  enter  the  desired  command. 


The  commands  available  are  "send  a  packet»”  "receive  a  packet," 
"enquire"  (executes  the  enquire  command),  "cancel"  (executes  the  cancel 
command),  "help"  (prints  out  the  list  of  commands),  and  "quit."  To  send 
a  packet,  the  user  Is  prompted  to  enter  the  packet  from  the  terminal, 
terminated  by  a  carriage  return.  This  packet  Is  then  sent  out  over  the 
net.  For  each  packet  that  Is  to  be  received,  however,  the  destination 
controller  must  be  put  Into  the  receive  mode  by  using  the  receive  com- 
mand  emy  time  before  the  packet  is  sent.  When  the  packet  is  received. 
It  Is  simply  displayed  on  the  terminal  and  discarded.  If  the  controller 
Is  not  In  the  receive  mode.  It  does  not  monitor  the  ether  and  all  pack¬ 
ets  are  simply  Ignored. 

While  this  program  Is  relatively  simple.  It  does  demonstrate  the 
use  of  the  low  level  host  to  controller  communication  protocol  and  the 
feasibility  of  sending  packets  on  the  net.  It  Is  also  useful  as  a  tool 
to  debug  more  sophisticated  network  protocols  by  allowing  the  user  to 
monitor  packet  transmissions  on  the  ether.  This  monitoring  is  done  by 
running  the  PACKET  program  and  repeatedly  executing  the  receive  command 
for  each  packet  that  Is  to  be  received.  This  program  forms  a  basis  for 
the  more  complicated  programs  to  follow. 


1.  THE  FILE  TRANSFER  PBOTQCQL 

The  file  transfer  protocol  builds  on  the  previous  host/oontroller 
communication  protocol  to  provide  for  the  orderly  transfer  of  files  as  a 
sequence  of  packets.  This  level  of  protocol  Is  tolerant  of  trananlsslon 
errors  and  damaged  packets  and  provides  a  mechanism  for  recovering  from 
these  errors.  This  mechanism  Is  known  as  a  stop-and-ualt  protocol  with 
positive  acknowledgement  and  retransmlsslon[ 1 ] .  What  this  means  Is  that 
the  sender  transmits  a  packet  and  waits  for  the  receiver  to  acknowledge 
correct  reception  before  sending  another.  If  the  receiver  never  ack¬ 
nowledges  the  packet,  perhaps  because  It  was  damaged  or  never  received, 
the  sender  times  out  and  retransmits  the  packet.  The  receiver  only  ack¬ 
nowledges  the  correct  reception  of  packets  knowing  that  unacknowledged 
packets  will  be  retransmitted  by  the  sender  after  the  time  out  Interval. 
This  protocol  provides  a  simple,  relatively  error- free  method  for 
transmitting  files. 

3..1.  faoket  Types  am  ifiraaiL 

All  of  the  packets  used  In  this  protocol  have  the  same  format, 
shown  In  Figure  2,  which  uses  a  six  byte  header  to  provide  the  Informa¬ 
tion  required  In  each  packet.  The  first  two  bytes  of  each  packet  con¬ 
sist  of  the  destination  and  source  addresses  with  the  destination 
address  first.  The  use  and  ordering  of  these  two  bytes  Is  determined  by 
the  Ethernet  definition.  The  controller  hardware  expects  to  find  the 
destination  address  In  the  first  byte.  The  third  byte  contains  a  number 
that  Identifies  the  packet  type,  described  below.  The  fourth  byte  Is  a 
sequence  number  that  Identifies  each  packet  to  prevent  the  receiver  from 


accepting  duplicates  in  the  event  that  a  packet  la  retransmitted.  The 
remaining  two  bytes  In  the  header  contain  the  number  of  actual  data 
bytes  In  the  data  portion  of  the  packet,  with  the  high  order  byte  first. 
From  zero  to  1018  actual  data  bytes  can  be  Inserted  In  the  packet  making 
a  maximum  packet  length  of  1024  bytes  (six  header  bytes  plus  1018  data 
bytes) .  In  addition,  the  controller  hardware  appends  two  bytes  to  the 
end  of  every  packet.  These  two  bytes  provide  an  error-detecting  check¬ 
sum,  but  they  are  completely  unavailable  to  the  host  computer's 
software.  The  "sync"  bit  Is  used  by  the  hardware  to  synchronize  the 
receiver  at  the  start  of  the  packet  trEuismlsslon  and  Is  also  unavailable 
to  the  host. 

There  are  seven  different  types  of  packets  that  are  used  In  this 
system,  four  of  which  are  used  in  this  file  transfer  protocol  and  three 
that  are  concerned  with  the  communication  Initiation  protocol.  These 
seven  packet  types  were  defined  specifically  for  this  network  Implemen¬ 
tation  and  their  meanings  are  summarized  in  Table  3.  The  ACKFILE  type 


Table  3<  Packet  Types 


Type 

Code 

Description 

ACKFILE 

1 

Packet  received  correctly 

NAKFILE 

2 

Requested  file  on  HP  3000  does  not  exist 

DATAFILE 

3 

Packet  contains  file  data 

ENDFILE 

5 

Indicates  end  of  file 

ENDREPLY 

6 

Acknowledges  the  ACKFILE  of  the  ENDFILE 

SENDFILE 

7 

Prepares  receiver  to  send  a  file 

RECFILE 

8 

Prepares  receiver  to  read  a  file 

23 


Is  an  acknowledgement  packet  used  by  the  receiver  to  acknowledge  the 
correct  reception  of  a  packet.  DATAFILE  Is  used  by  the  trannsltter  to 
Identify  packets  that  contain  the  actual  file  data.  The  EKDFILE  and 
ENDREPLY  packet  types  are  used  In  the  end  sequence  described  below.  The 
SENDFILE,  RECFILE,  and  NAEFILE  packet  types  are  used  to  Initiate  commun¬ 
ication  between  the  two  hosts  and  their  use  Is  described  In  the  next 
chapter. 

1.2..  EUa  Iraoafera 

As  mentioned  above,  files  are  transferred  from  the  sender  to  the 
receiver  as  a  series  of  consecutively  numbered  packets.  This  protocol 
Is  based  on  the  "Ethernet  File  Transfer  Protocol"  described  In  [3]  with 
some  modifications  as  suggested  In  [10].  This  system  only  allows  one 
file  at  a  time  to  be  transferred  between  the  two  hosts.  Packets 
transmitted  between  other  stations  can  be  multiplexed  on  the  ether  since 
each  station  controller  Ignores  packets  Intended  for  other  destinations. 
That  Is,  there  can  be  no  multiplexing  of  file  transfers  to  the  same  des¬ 
tination  (but  the  ether  can  be  multiplexed  for  transfers  between  dif¬ 
ferent  destinations)  and  there  can  be  no  multiplexing  of  file  transfers 
If  two  or  more  of  these  transfers  Involve  the  VAX  or  the  HP  3000  In  any 
way. 

After  the  Initial  communication  Is  established  between  the  two  com¬ 
puters,  this  file  transfer  system  Is  Invoked  to  perform  the  actual 
transfer.  An  example  of  this  protocol  Is  shown  In  Figure  3.  The  sender 
sends  DATAFILE  packets  consecutively  numbered  from  one  (modulo  256, 
since  the  sequence  number  field  In  the  header  Is  eight  bits  wide). 


These  DATAFILE  packets  have  the  format  previously  described  with  the 
"data”  portion  containing  the  actual  file  data.  After  each  packet  Is 
transmitted,  the  sender  waits  for  an  ACEFILE  packet  trcm  the  receiver 
with  a  matching  sequence  number,  thereby  acknowledging  the  correct 
reception  of  the  packet.  These  ACKFILE  packets  have  an  empty  "data” 
portion  and  consist  only  of  the  heacer  bjtes  and  the  controller¬ 
generated  checksum.  If  an  acknowledgement  is  not  received  within  a  set 
period  of  time  (five  seconds),  the  sender  retransmits  the  same  packet 
and  again  waits  for  the  corresponding  acknowledgement.  The  sending  pro¬ 
gram  will  retransmit  the  same  packet  up  to  MAXCOUNT  times,  where  MAX- 
COUNT  la  a  parameter  In  the  program  that  can  be  changed  by  recompiling 
the  program.  If  there  Is  no  acknowledgement  after  MAXCOUNT  transmission 
attempts,  the  sender  simply  assumes  that  the  remote  receiver  Is  dead  and 
aborts  any  further  transmissions  to  that  destination. 

The  receiver,  meanwhile,  waits  for  some  packet  to  arrive  on  the 
net.  Each  packet  is  examined  to  make  sure  that  It  Is  undeuaaged  and  has 
the  proper  sequence  number,  that  is,  that  the  packet  sequence  number 
matches  the  expected  sequence  number.  This  expected  number  Is  simply 
one  more  than  the  sequence  number  of  the  last  correctly  received  packet. 
If  this  Is  the  case,  the  receiver  accepts  the  packet,  stores  It  in  the 
file,  acknowledges  the  packet,  and  Increments  the  expected  sequence 
number.  If  the  packet  Is  undamaged,  but  the  sequence  number  Is  one  less 
than  the  expected,  then  the  packet  Is  acknowledged  and  discarded.  The 
assumption  la  that  the  previous  acknowledgement  for  that  packet  was  lost 
or  damaged  In  transmission  and  needs  to  be  retransmitted.  All  other 
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packets  (those  that  are  damaged  or  have  an  Improper  sequence  number)  are 
simply  ignored,  the  receiver  knowing  that  the  sender  will  shortly 
retransmit  any  packets  that  have  not  been  acknowledged. 

After  all  of  the  data  has  been  transmitted,  the  sender  sends  an 
ENDFILE  packet  with  the  next  consecutive  sequence  number  to  Indicate  to 
the  receiver  that  the  file  transfer  has  been  completed.  This  ENDFILE 
packet  consists  only  of  header  bytes  and  the  controller-generated  check¬ 
sum  and  has  an  empty  "data”  portion.  The  sender  then  waits  for  the 
receiver  to  acknowledge  this  ENDFILE  with  the  standard  ACKFILE  packet. 
Upon  receiving  the  ENDFILE,  the  receiver  acknowledges  it  and  then  waits 
for  a  period  of  time.  After  receiving  this  acknowledgement,  the  sender 
transmits  an  ENDREPLT  packet,  which  also  has  an  empty  "data”  portion, 
and  la  now  done  with  the  entire  file  transfer.  The  waiting  receiver 
receives  this  ENDREFLY  and  then  It  is  also  done  with  the  file  transfer. 

This  relatively  complex  end  sequence  makes  It  practically  certain 
that  both  the  sender  and  the  receiver  agree  on  whether  the  file  has  been 
transmitted  correctly.  If  the  ENDFILE  packet  Is  lost  in  transmission, 
the  sender  will  simply  time  out  and  retransmit  It  as  it  would  any  other 
packet  that  has  not  been  acknowledged.  If  the  acknowledgement  of  this 
ENDFILE  packet  Is  lost,  the  sender  will  again  simply  time  out  and 
retransmit  the  ENDFILE.  The  packet  will  eventually  be  acknowledged  by 
the  waiting  receiver.  If  the  ENDREFLY  packet  from  the  sender  is  lost, 
the  receiver  will  time  out  (five  seconds).  After  It  times  out,  It  can 
quit  and  assume  that  the  transfer  was  completed  successfully  since  It 
previously  received  the  ENDFILE  packet. 
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1.  COMMDNICATIOM  INITIATIOM  AND  THE  USER  INTERFACE 

The  level  of  protocol  described  In  this  chapter  is  the  highest 
level  used  in  this  local  network  system.  This  level  does  all  of  the 
communication  with  the  user  of  the  systoa  and  is  concerned  with  opening 
and  creating  the  required  files  by  using  the  file  handling  procedures 
available  within  the  UNIX  operating  syston  on  the  VAX  and  the  MPE 
operating  systos  on  the  HP  3000.  It  is  also  concerned  with  detecting 
and  reporting  to  the  user  any  errors  that  may  occur  due  to  problems  in 
opening  files,  system  crashes,  improper  usage  of  the  file  transfer  com¬ 
mands,  and  other  such  problems.  Within  this  protocol  is  a  subprotocol 
that  is  concerned  with  Initiating  communication  between  the  two  comput¬ 
ers  to  allow  the  transfer  of  files  using  the  previously  described  file 
transfer  protocol. 

1.1.  Organlaatioa 

The  system  organization  requires  the  user  to  log  in  on  the  VAX  to 
initiate  file  transfers  both  to  and  from  the  HP  3000.  On  the  VAX,  the 
user  executes  a  command  that  runs  a  program  to  communicate  with  a  simi¬ 
lar  program  that  is  running  continuously  on  the  HP  3000.  This  program 
on  the  HP  3000  is  called  a  network  daoson  and  only  responds  to  commands 
sent  to  it  over  the  net.  The  term  "daemon”  is  used  by  the  developers  of 
the  UNIX  operating  system  to  refer  to  a  program  that  is  continuously 
waiting  for  the  conditions  to  occur  that  cause  it  to  go  into  action. 
This  daemon  runs  in  a  special  account  called  ETHERNET. SYS  and  uses  the 
system's  file  handling  procedures  to  store  and  retrieve  files  from  any 
user's  directory  that  has  read,  write,  and  save  privileges  specified  as 


ANY[11].  When  the  terminal  port  connected  to  the  controller  on  the  VAX 
le  opened  by  running  the  file  transfer  command,  it  is  allocated  by  UNIX 
exclusively  to  that  user.  This  exclusivity  allows  only  one  VAX  user  at 
a  time  to  transfer  files. 

Shown  in  Figure  4  is  a  schematic  representation  of  this  system 
organization.  As  this  figure  suggests,  files  are  transferred  between 
the  user's  directory  on  the  VAX  and  the  file  system  on  the  HP  3000. 
This  file  convention  allows  the  user  to  specify  the  full  path  name  on 
both  computers  and  thereby  place  the  file  in  any  directory  to  which  the 
user  has  access.  For  example,  on  the  HP  3000  a  fully  specified  name  is 
of  the  form  "FILENAME. GROUP. ACCOUNT.”  If  the  name  is  not  fully  speci¬ 
fied,  it  will  default  to  the  ETHERNET. SYS  account  on  the  HP  3000  and  can 
be  transferred  to  the  user's  directory  using  the  FCOPY  commandCll] .  If 
the  path  name  is  not  fully  specified  on  the  VAX,  it  defaults  to  the 
user's  current  working  directory. 

The  file  program  on  the  VAX  (see  Appendix  3)  must  be  linked  to  two 
command  names  after  it  is  compiled  using  the  "In"  command[7].  The  two 
n2unes  to  be  linked  to  this  program  are  "sendbp"  (meemlng  send  a  file  to 
HP  3000)  and  "gethp”  (meaning  get  a  file  from  the  HP  3000).  This  naming 
is  necessary  because  this  single  program  uses  the  name  with  which  It  is 
called  (sendhp  or  gethp)  to  determine  the  direction  In  which  the  files 


will  be  transferred. 


USER'S 

DIRECTORY 


ETHER  - 7 

^ - > 


Figure  4.  System  organization  for  file  transfers 
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iL.2.«  File  Transfers  £csA  ML  Ihfi.  ilL  3£U2II 

Using  the  command  "sendhp  srcflle  [destflle]”  to  call  the  VAX  file 
program  (see  Appendix  3)  will  cause  the  file  named  in  "srcflle”  to  be 
transferred  to  the  HP  3000  over  the  network.  The  "destflle”  is  the  name 
that  the  user  wants  the  file  to  be  called  at  the  remote  computer.  The 
brackets  indicate  that  "destflle"  is  an  optional  parameter.  If  it  is 
omitted,  the  file  name  at  the  destination  defaults  to  be  the  same  as  the 
source  file  name.  If  this  command  executes  properly,  the  program  simply 
ends  and  returns  the  system  prompt.  If  it  is  unsuccessful  in  transfer¬ 
ring  the  file  after  all  attempts  at  retransmission,  it  will  print  an 
error  message  to  the  terminal  Indicating  the  nature  of  the  problem. 

The  program  executes  the  following  sequence  of  events  to  process 
the  "sendhp"  command.  It  first  checks  the  number  of  arguments  to  make 
sure  all  of  the  required  arguments  are  present  and  to  medce  sure  that 
there  are  no  additional  arguments.  The  arguments  for  "sendhp"  are 
sendhp  Itself  and  the  words  typed  after  the  command  on  the  same  line, 
namely  the  source  file  name  (srcflle)  and,  optionally,  the  destination 
file  name  (destflle).  If  the  number  of  arguments  is  wrong,  it  prints  an 
error  message  indicating  the  proper  usage  and  terminates  execution.  If 
the  number  of  arguments  is  correct,  it  checks  the  name  with  which  it  was 
invoked  to  determine  the  direction  of  the  file  transfer.  Since  in  this 
case  it  was  invoked  with  the  name  "sendhp,"  the  direction  of  transfer  is 
from  the  VAX  to  the  HP  3000.  Once  the  direction  is  known,  the  program 
assigns  as  the  destination  file  name  the  third  argument  of  the  command, 
or  it  defaults  to  be  the  same  as  the  source  file  name  if  no  third  argu- 


ment  Is  given.  Next,  the  terminal  port  connected  to  the  controller  Is 
opened  and  allocated  to  this  user  and  the  network  station  address  of  the 
controller  is  determined  using  the  enquire  (BNQ)  command  previously 
described.  If  the  controller  is  presently  allocated  to  another  user, 
the  program  will  terminate  with  a  message  indicating  that  the  controller 
is  busy.  Otherwise,  the  program  next  attempts  to  open  the  source  file. 
If  it  does  not  exist,  the  program  terminates  with  an  error  message. 

After  this  initialization,  the  program  attempts  to  initiate  commun¬ 
ication  with  the  network  da«non  running  the  HP  3000.  This  is  done  by 
sending  a  RECFILE  packet  which  tells  the  network  daemon  to  prepare  to 
receive  a  file  from  the  VAX.  This  packet  has  the  same  format  as  previ¬ 
ously  described  with  the  data  portion  containing  the  destination  file 
name,  which  is  the  name  that  the  network  daemon  will  use  to  save  the 
file  in  the  HP  3000  file  system.  Upon  receiving  the  RECFILE  packet,  the 
network  daemon  opens  a  new  file  with  the  pi  oper  name  and  then  sends  an 
acknowledgement  (ACKFILE)  packet  back  to  the  VAX  to  indicate  that  it  is 
ready  to  begin  receiving  the  file.  If  for  any  reason  the  VAX  does  not 
receive  the  acknowledgement  packet  before  timing  out,  it  slnyily 
retransmits  the  RECFILE  packet. 

At  this  point,  communication  has  been  established  between  the  two 
computers  and  they  are  ready  to  begin  the  actual  file  transfer.  The 
file  transfer  protocol  described  in  the  previous  chapter  is  then  used  to 
effect  the  transfer  with  the  VAX  as  the  sender  and  the  HP  3000  as  the 
receiver.  After  the  end  sequence  is  completed,  the  daemon  on  the  HP 
3000  attempts  to  close  the  Just  received  file  as  a  new  permanent  file 
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and  save  it  in  the  disc  file  system.  If  a  file  already  exists  in  the 
directory  with  the  same  name,  it  will  be  unable  to  successfully  close 
the  file  and  will  rename  the  new  file  so  that  it  can  be  properly  saved. 
This  renaming  is  done  automatically  and  the  user  is  not  notified  of  the 
change.  It  is  done  simply  as  a  convenience  so  that  the  file  will  not 
have  to  be  transferred  again,  but  also  will  not  overwrite  a  previously 
existing  file.  The  renaming  consists  of  simply  appending  a  one  digit 
number  to  the  end  of  the  file  name  to  give  a  unique  name  to  this  new 
file.  To  get  the  correct  (renamed)  file,  the  user  lists  the  contents  of 
his  directory  (after  logging  on  to  the  HP  3000)  and  looks  for  a  file 
having  the  expected  name  plus  the  added  single  digit.  The  file  with  the 
largest  added  digit  is  the  most  recent  version  received  over  the  net. 
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To 

send  files  from  the  HP 

3000  to 

the 

VAX 

the 

command  "gethp 

srcflle 

[destfile]"  is  used 

to  call 

the 

VAX 

file 

program,  where 

"srcfile"  and  "destfile"  have  meanings  as  in  the  "sendhp"  command.  As 
previously  mentioned,  both  of  these  commands  must  be  linked  to  the  same 
program.  As  when  the  program  is  called  with  "sendhp,"  "gethp"  causes  it 
to  go  through  the  same  Initialization  sequence,  first  checking  for  the 
proper  number  of  argiments,  then  determining  the  transfer  direction  and 
the  destination  file  name,  and  finally  opening  the  controller's  port  and 
determining  the  network  station  address  of  the  controller.  After  this 
initialization,  the  program  is  ready  to  initiate  communication  with  the 
network  daemon  on  the  HP  3000. 


The  first  step  in  setting  up  communication  with  the  network  daemon 
is  for  the  VAX  to  send  a  SENDFILE  packet.  This  packet  is  formatted  as 
previously  described  with  the  source  file  name  in  the  "data"  portion  of 
the  packet.  After  receiving  this  packet,  the  network  daemon  attempts  to 
open  the  named  file.  If  it  cannot  open  the  file,  probably  because  it 
does  not  exist  (perhaps  the  user  spelled  the  name  wrong),  then  it  sends 
a  NAKFILE  packet  back  to  the  VAX.  This  NAKFILE  is  in  the  standard  for¬ 
mat  with  nothing  in  the  "data"  portion  of  the  packet  and  consists  only 
of  header  bytes  and  the  controller-generated  checksum.  Upon  receiving 
this  negative  acknowledgement,  the  VAX  prints  an  error  message  to  the 
user  indicating  that  the  file  does  not  exist  and  terminates  execution. 
If,  however,  the  file  exists  and  is  opened  successfully,  the  network 
daemon  returns  an  ACKFILE  packet  to  the  VAX  indicating  that  it  is  ready 
to  transmit  the  file.  Upon  receiving  this  acknowledgement,  the  VAX 
creates  a  new  file  with  the  name  in  "destfile"  (or  "srcflle"  if  no 
"destflle"  is  specified)  in  which  to  store  the  incoming  file  from  the 
network  daanon.  If  a  file  already  exists  on  the  VAX  with  the  seune  name 
as  in  "destflle,"  the  program  will  append  the  suffix  ".new"  so  as  to 
avoid  overwriting  the  old  file.  Once  this  communication  is  established 
and  edl  of  the  appropriate  files  are  opened  and  created,  the  file 
transfer  protocol  described  in  the  previous  chapter  is  used  to  transfer 
the  files  with  the  network  daemon  as  the  sender  and  the  VAX  as  the 
receiver.  After  the  file  has  been  transferred,  the  program  terminates 
and  returns  the  system  prompt  to  the  user.  Other  error  messages  are 
similar  to  those  for  "sendhp." 


1.1.  lbs.  Network  Daemon 


The  network  daemon  is  the  program  that  runs  continuously  on  the  HP 
3000  listening  for  file  transfer  commands  from  the  VAX  sent  over  the 
net.  The  logic  of  this  program  closely  follows  the  logic  used  In  the 
program  described  above  and  a  listing  for  the  entire  network  daemon  la 
Included  In  Appendix  4.  The  main  difference  between  this  program  and 
the  "sendhp/gethp"  program  above  is  that  this  network  daemon  only  needs 
to  be  started  once  when  the  HP  3000  Is  Initially  turned  on  or  a  cold 
start  Is  executed.  To  start  this  program,  the  system  operator  needs  to 
execute  the  command  "STREAM  STARTNET.LILJA.SYS”  which  will  load  In  the 
network  daemon  and  start  It  running  in  the  account  ETHERNET. SYS.  Before 
this  command  is  executed,  the  operator  should  manually  reset  the  network 
controller.  A  listing  of  the  file  STARTNET.LILJA.SYS  is  shown  in  Appen¬ 
dix  5. 

1.5,.  2xabsa  Error 

There  are  several  errors  that  can  occur  when  using  the  "sendhp"  and 
"gethp"  commands  that  will  cause  the  program  to  terminate.  Besides 
printing  a  message  on  the  user’s  terminal,  the  program  also  returns  an 
error  number  using  the  "exit"  system  call.  These  error  codes  are  sum¬ 
marized  in  Table  4.  If  the  file  was  transferred  successfully,  the  pro¬ 
gram  will  return  0  to  indicate  that  no  error  occurred.  Error  code  1 
means  that  the  program  was  called  with  the  incorrect  number  of  argu¬ 
ments,  either  no  source  file  name  was  given  or  too  many  file  names  were 
given.  Codes  2  and  8  mean  that  the  source  file  does  not  exist  on  the 
VAX  or  the  HP  3000,  respectively.  This  is  usually  due  to  the  file  name 


Table  4.  System  Error  Codes 


Name 

Code 

Error  Message 

NOERROR 

0 

(No  message  is  displayed.) 

BAOARGS 

1 

Usage  is:  sendhp  srcflle  [destfile]  or 

Usage  is:  gethp  srcflle  [destfile]. 

BADOPENVAX 

2 

Error  -  can't  open  (filename)  on  VAX. 

BADREMOTE 

3 

Remote  machine  does  not  respond. 

CONTDOWN 

4 

Controller  on  VAX  is  dead.  Try  resetting  it. 

NOCONTOPEN 

5 

Couldn't  open  controller's  port. 

It  must  be  busy  (or  dead).  Try  again  later. 

NOCONFIG 

6 

Couldn't  configure  the  controller's  port. 

XMITERROR 

7 

Some  sent  packets  were  not  acknowledged. 

Try  again. 

BADOPENHP 

8 

Error  -  can't  open  (filename)  on  remote  machine 

being  spelled  incorrectly.  If  the  network  daemon  on  the  HP  3000  does 
not  repond  to  a  request  from  the  VAX  after  the  request  has  been 
transmitted  a  fixed  number  of  times,  the  program  will  assume  that  the 
remote  machine  Is  dead  and  will  return  error  code  3>  If  the  network 
daemon  acknowledges  sots,  but  not  all  of  the  transmitted  packets,  the 
program  assumes  that  the  daemon  program  must  have  creished  In  the  middle 
of  the  transfer  and  error  code  7  is  returned.  In  this  case  no  (partied) 
file  is  stored  in  the  receiver's  file  system  if  the  HP  3000  is  the 
receiver.  However,  a  partial  file  could  be  stored  in  the  VAX  file  sys¬ 
tem  if  the  VAX  is  the  receiver.  The  user  may  wish  to  try  to  transfer 
the  file  again.  If  a  peculiar  system  state  was  left  at  the  end  of  the 
first  transfer,  a  new  error  message  will  indicate  the  problem. 

Error  codes  4  through  6  are  concerned  with  the  status  of  the  net¬ 
work  controller  connected  to  the  VAX.  When  the  controller  does  not 
respond  to  the  enquire  command  (ENQ),  it  must  be  dead  and  needs  to  be 


manually  reset.  This  problem  returns  error  code  4.  Codes  5  and  6  are 
returned  If  the  program  Is  unable  to  open  or  configure  the  terminal  port 


connected  to  the  controller.  The  program  will  be  unable  to  open  the 
port  (code  5)  If  someone  else  Is  already  using  the  network,  but  the  pro¬ 
gram  should  be  able  to  open  the  port  successfully  after  the  other  user 
Is  finished.  If  the  program  was  able  to  open  the  port,  the  UNIX  "stty" 
routine  should  also  be  able  to  configure  the  port.  Error  code  6  Is 
returned  If  It  cannot.  These  error  codes  are  only  Intended  to  point  the 
user  In  the  proper  direction  and  should  not  be  taken  as  the  last  word  In 
diagnosing  the  error. 

1.£l.  Factet  Size  XfiC  File  Transfers 

The  size  of  the  packets  have  a  significant  effect  on  the  efficiency 
of  the  file  transfers.  Larger  packets  are  generally  desired  for  faster 
transfersCl2].  Due  to  a  limited  amount  of  buffer  memory,  the  controller 
restricts  the  maximum  packet  size  to  1024  bytes.  When  file  transfers 
are  attempted  using  this  maximum  size.  It  has  been  found  that  the  file 
system  on  the  HP  3000  Is  too  slow  to  keep  up  with  the  packet  traffic. 
That  Is,  when  transferring  a  file  from  the  VAX  to  the  HP  3000,  the  HP 
3000  tadces  too  long  to  store  and  acknowledge  the  packets,  thereby  caus¬ 
ing  the  VAX  to  time  out  and  retramsmlt  many  packets.  The  result  Is  a 
degradation  of  the  overall  system  performance. 

Another  more  severe  limitation  Is  that  the  VAX  will  only  buffer  a 
maximum  of  256  bytes  from  the  controller  terminal  port  on  Input.  This 
limitation  only  becomes  apparent  when  the  VAX  Is  heavily  loaded.  When 
It  Is  lightly  loaded,  the  terminal  driver  appears  to  have  enough  time  to 
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read  all  of  the  characters  being  sent  by  the  controller,  but  characters 
that  overflow  the  buffer  under  heavy  VAX  loading  are  simply  thrown  away. 
When  these  characters  are  discarded,  the  file  transfer  program  waits 
indefinitely  for  the  discarded  characters  to  be  transferred  by  the  con¬ 
troller.  The  only  way  to  recover  from  this  problem  is  to  restart  the 
program  and  manually  reset  the  controller. 

The  result  of  these  limitations  is  that  for  adl  file  transfers  a 
packet  size  of  no  more  than  256  bytes  should  be  used.  This  maximum  size 
provides  for  reasonably  efficient  transfers  and  still  assures  proper 
buffering  and  timing  on  both  of  the  host  computers. 
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5.,  CONCLDSIQM 

We  have  described  the  Implementation  of  a  local  computer  network  to 
allow  the  transfer  of  files  from  one  host  computer  to  another.  The 
transfer  Is  accomplished  by  logging  in  on  the  VAX  computer  and  executing 
one  of  two  simple  commands  to  transfer  a  file  to  or  from  the  HP  3000 
computer.  The  four  distinct  levels  of  protocol  used  in  this  implementa¬ 
tion  were  described.  The  lowest  level  protocol,  the  Ethernet  protocol, 
controls  the  actual  transmission  of  packets  over  the  ether  and  Is  Imple¬ 
mented  In  a  previously  built  microprocessor  based  controller.  This 
level  of  protocol  delivers  packets  to  their  destinations  with  a  high 
probability  of  success,  but  any  error  control  must  be  done  at  a  higher 
level . 

The  remaining  three  levels  of  protocol  represent  the  main  work  of 
this  thesis  and  are  Implemented  entirely  In  software  on  the  host  comput¬ 
ers.  The  host  to  controller  communication  protocol,  which  allows  the 
host  computer  to  control  the  slave  Ethernet  controller,  was  the  most 
difficult  to  Implement  due  to  Its  dependency  on  the  unique  characteris¬ 
tics  of  the  terminal  drivers  of  the  two  hosts. 

The  next  level  of  protocol  Is  the  file  transfer  protocol  which 
Implements  the  transfer  of  files  as  a  series  of  sequentially  numbered 
packets.  This  protocol  Is  also  tolerant  of  transmission  errors  that 
destroy  Individual  packets  by  providing  for  the  retransmission  of  pack¬ 
ets  that  have  not  been  acknowledged  after  a  fixed  interval  of  time. 

The  highest  level  of  protocol  in  this  local  network  communicates 
with  the  user  and  Initiates  the  communication  between  the  network 
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program  running  on  the  VAX  and  the  network  daemon  that  runs  continuously 
on  the  HP  3000. 

JS..1.  SlWtMtiona  ISC  Imopovament 

While  the  system  works  as  it  was  Intended  and  provides  a  simple 
mechanism  to  transfer  files  between  the  two  computers,  there  are  some 
things  that  could  be  done  to  Improve  its  overall  performance  and  useful¬ 
ness.  One  main  disadvantage  of  the  current  implementation  is  the  rela¬ 
tively  slow  speed  of  large  file  transfers.  The  main  bottleneck  is  the 
9600  baud  serial  communication  line  connecting  the  controllers  to  their 
host  computers  through  terminal  ports.  A  much  better  strategy  would 
employ  a  direct  memory  access  (DMA)  connection  between  each  controller 
and  its  host  computer.  Even  a  byte  parallel  connection  between  the  con¬ 
troller  and  the  host  would  be  preferable  to  the  serial  connection  now 
used.  One  problem  with  a  DMA  or  a  parallel  connection  scheme  is  that  it 
would  be  unique  to  each  type  of  host  and  the  controller  would  lose  some 
of  its  portability. 

Another  improvement  to  the  controller  would  be  to  simplify  the  host 
to  controller  communication  protocol.  As  it  is  now,  this  protocol  is 
complex  and  difficult  to  use.  It  would  be  nice  if  the  controller  would 
listen  to  the  ether  continuously  and  be  able  to  notify  the  host  whenever 
a  packet  arrived.  This  would  eliminate  the  need  for  the  daemon  on  the 
host  and  would  make  the  host's  network  software  much  simpler. 

There  are  some  other  improvements  to  the  system  that  could  be 
implemented  totally  in  software  on  the  host  computer.  One  of  these  is 
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to  allow  the  multiplexing  of  several  different  simultaneous  file 
transfers  from  several  users.  This  multiplexing,  however,  would  cause 
ambiguity  in  packet  sequence  numbers  since  these  numbers  are  sequential 
only  within  a  single  file  transfer.  To  resolve  this  ambiguity,  an  extra 
field  would  have  to  be  added  to  the  header  portion  of  each  packet  for  a 
"file  number."  This  file  number,  together  with  the  packet  sequence 
number,  would  uniquely  identify  each  packet  of  each  file  transfer  in 
process. 

Ancther  Improvement  is  to  allow  a  ust^”  to  log  in  on  either  host 
computer  and  transfer  files  either  to  or  from  the  remote  host.  This 
would  require  a  network  daanon  on  both  hosts  to  listen  for  commands  on 
the  net  and  some  mechanism  to  allow  a  user  logged  in  on  the  host  to  pass 
a  coounand  to  the  local  daemon.  The  implementation  of  this  mechanism 
does  not  appear  to  be  straightforward  and  would  probably  be  a  nontrivial 
task. 

One  other  useful  Improvement  is  to  allow  a  user  to  log  in  on  the 
remote  machine  through  the  network.  For  example,  a  user  could  log  in  on 
the  VAX  using  a  modem  through  a  dial-up  line  and  then  use  the  network  to 
log  in  on  the  HP  3000  as  a  normal  user.  This  would  require  an  intelli¬ 
gent  process  to  be  run^ing^^oi^tbe  remote  host  to  simulate  a  terminal  or 
it  would  require  a  substantial  modification  to  the  software  in  the  Eth¬ 
ernet  controller.  Any  modifications  to  the  controller  would  probably 
make  it  no  longer  portable,  which  may  be  undesirable. 

Anyone  attempting  to  modify  this  system  should  look  carefully  at 
the  program  listings  in  the  Appendices.  Many  of  these  routines,  such  as 


the  routines  to  send  and  receive  Individual  packets,  could  probably  be 
used  unchanged  in  any  future  enhancements.  In  any  case,  they  should 
provide  a  guide  for  Implementing  many  of  the  fine  details  such  as  the 
complex  host  to  controller  communication  protocol.  While  this  system  Is 
complete  as  It  Is,  It  Is  hoped  that  It  will  provide  a  starting  point  for 
a  larger  local  network. 
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/*  program  to  send  and  receive  packets  over  the  Ethernet  */ 


/*  Include  required  libraries 

flnclude  <stdlo.h> 

#lnclude  <sgtty.h> 

/•  define  constants  •/ 


•/ 

/»  standard  l/o  library  •/ 

/•  library  for  tty  set-ups  •/ 


♦define  TTY  "/dev/tty07"  /• 


♦define  MAXLINE  510  /• 
♦define  PACKETSIZE  512  /• 
♦define  MAXCOONT  16  /• 

♦define  OK  1  /» 
♦define  NOTOK  0  /• 


port  to  connect  controller  to  •/ 
maixlmuffl  length  of  Input  line  */ 
maximum  size  of  packets  */ 
maximum  number  of  tries  before  aborting 
transmission  attempts  */ 

flag  Indicates  transmission  was  OK  */ 
flag  Indicates  transmission  was  not  OK  */ 


/•  define  command  bytes  •/ 


♦define 

ACK 

0x06 

/• 

acknowldgement  -  all  ok  */ 

♦define 

NAK 

0x15 

/• 

negative  acknowledge  -  error 

has  occured  •/ 

♦define 

ENQ 

0x05 

/• 

enquiry  command  */ 

♦define 

SEND 

0x11 

/• 

send  the  following  packet  */ 

♦define 

SOH 

0x01 

/• 

start  of  header  -  device  sending  SOH  Is 

requesting  the  packet  length 

•/ 

♦define 

NEC 

0x12 

/• 

receive  packet  from  Ethernet 

•/ 

♦define 

CAN 

0x18 

/• 

cancel  last  receive  request 

•/ 

/*  define  golbal  variables  */ 


char  destaddress; 
char  srcaddress; 
Int  controller; 


/•  address  of  destination  controller  */ 

/•  address  of  source  (this)  controller  •/ 
/•  file  descriptor  of  controller  port  •/ 


/*  main  program  to  get  and  process  commands  */ 
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naln  () 

{ 

Int  command;  /*  command  to  be  executed  */ 


prlntbanner( ) ; 
inltlallze( } ; 
help( ) ; 


/•  print  banner,  version  number  •/ 
/*  init  station  addresses  */ 

/•  print  list  of  commands  •/ 


/*  execute  commands  until  quit  */ 

while  (((command  s  getcommandO)  1=  'q'}  &&  (command  1=  *Q'>} 


switch  (command) 


{ 


case  's': 
case  'S': 
send( ) ; 
break; 
case  'r': 
case  'R': 
receive ( ) ; 
break; 
case  'e': 
case 

enquire( ) ; 
break; 
case  'c': 
case  'C: 
cancel  ( ) ; 
break; 
case  'h': 
case  'H': 
help( } ; 
break; 
default: 


/•  send  a  packet  */ 


/•  receive  a  packet  •/ 


/•  enquire  -  print  address  */ 


/• 

/• 


/• 

/• 


cancel  last 
command 


receive 


•/ 

•/ 


help  ~  print  list  of  •/ 


these  commands 


•/ 


} 


/•  invalid  command^,*/ 
printf ( "Nninvalid  commandNn" ) ; 
break; 


/*  print  quitting  and  end  */ 
printf ( "Nnquittlng. . . Nn") ; 


/*  send  command  read  a  packet  from  the  terminal  and  send  it 
over  the  ethernet.  assumes  addresses  are  initialized  in 
srcaddress  and  destaddress  *! 

I 


sendO 

{ 

Int  length;  /*  length  of  data  Input  from  terminal  */ 

char  paclcet[PACKETSIZE] ;  /*  completed  packet  to  send. 

dest  :  src  :  data  */ 

char  data[MAXLINE] ;  /*  data  read  from  terminal  */ 

Int  l,j;  /•  Indices  In  loop  •/ 

Int  count  si;  /•  number  of  attempts  to  xmlt  so  far  */ 

/*  read  the  packet  from  the  terminal  */ 

prlntf( "Enter  the  packet  terminated  by  <ret>:\n\n") ; 
length  s  getllne(data,  MAXLIKE); 

/*  create  the  packet,  le.  add  addresses  to  start  */ 

packetCO]  s  destaddress; 
packetCl]  s  srcaddress; 
for  (ls2,  JsO;  j  <  length  ;  ++1,  ++J) 

packetCl]  s  dataCj]; 

/•  try  to  send  packet  until  OK  or  too  many  tries  •/ 

while  (  (sendpacket(packet,length-i>2)  fs  OK) 

&&  (count  <  HAXCOONT)  ) 

♦♦count ; 

/*  print  message  about  transmission  */ 

If  (count  >s  MAXCOOKT) 

prlntf("\npacket  not  transmitted  after  j{2d  tries \n", count) ; 
else  prlntf("\npacket  transmitted  OR  after  %2d  t rles\n", count ) ; 

} 


/*  sendpacket  >  send  a  single  packet,  addresses  are  embedded  within 
the  packet,  returns  OK  If  good  transmission,  NOTOK  otherwise  */ 


sendpacke t( packe  t , length) 


char  packetC ] ; 
Int  length; 

{ 

char  reply; 
char  status; 

Int  xmltflag  s 
char  leiulow; 


/•  packet  to  be  sent  •/ 

/•  length  of  packet  •/ 

/•  controller's  replies  to  host  •/ 
/•  status  byte  from  controller  •/ 
MOTOR;  /•  hold  OR  or  NOTOK  •/ 

/•  low-order  byte  of  length  •/ 


char  lehjhigh;  /•high-order  byte  of  length  •/ 
int  i;  /•  index  in  loop  •/ 

/*  split  length  into  high-  and  low-order  parts  */ 

leiuhigh  =  length  /  256;  /•  truncates  fraction  •/ 

lerv_low  =  length  -  (lehlhigh  •  256); 

/•  ready  controller  to  xmit  •/ 

sendcontroller(SENO) ; 
reply  =  readcontroller( ) ; 
status  s  readcontrollerO ; 

if  (reply  ==  SOH)  /•  controller  ready  •/ 

{ 

sendcontroller( len_low) ; 
sendcontrollerC lenjhigb) ; 
reply  =  readcontroller( ) ; 
status  =  readcontrollerO; 

if  (reply  ==  ACK)  /•  controller  ready  »/ 

{ 

for  (iaO;  Klength;  ++i)  /•  send  packet  •/ 

sendcontroller(packet[i]) ; 
reply  s  readcontrollerO; 
status  =  readcontroller( ) ; 

if  (reply  ==  ACK)  /•  it  worked  •/ 
xmitflag  =  OK; 

} 

} 

return( xmitflag) ; 

} 


/•  receive  command  -  receive  a  packet  from  the  ethernet  and  print  it 
on  the  terminal  */ 

recelve( ) 

{ 

int  length;  /*  will  contain  length  of  packet  reev'd  V 

char  packetCPACKETSIZE] ;  /•  reev'd  packet  •/ 

int  1;  /•  index  in  loop  •/ 


/*  print  message  and  receive  the  packet  */ 
printfCXnWaitlng  for  packet  on  the  ethernet. .  An”) ; 
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p: 


■ 


if  (recvpacket( packet, ^length)  ss  OK) 

{ 

/*  print  addresses,  print  the  packet  */ 
prlntfC "packet  received  OK\n\n”); 
prlntfC "Destination  address:  $2x  \n",packet[0]); 
prlntfC "Source  address:  t2x  \n\n”,packet[ 1]) ; 
for  (is2;  1  <  length;  -•••t-l) 

putchar(packetCi]) ; 
printf("\n\n") ; 

} 

else  prlntf ( "\npacket  damaged,  receive  cancelled\n") ; 


il 


i: 


U 


/•  recvpacket  -  receives  a  packet  from  the  ethernet  with  this 
stations 's  address  or  the  broadcast  address, 
returns  OK  if  reev'd  OK,  NOTOK  otherwise, 
values  of  packet  and  length  returned  via  pointers 
cancels  receive  command  if  not  received  OK  */ 


recvpacket ( packet , plength) 

•/ 

length  of 

•/ 

•/ 

•/ 

•/ 

•/ 

•/ 

/*  tell  controller  to  receive  packet  •/ 

sendcontrolIer(REC) ; 
reply  r  readcontroller( ) ; 
status  s  readcontroller(} ; 

/•  check  if  packet  reev'd  OK  */ 

if  (reply  *s  ACK)  /•  packet  OK  •/ 

{ 


char  packetCJ; 
int  "plength; 


{ 


char  reply; 
char  status; 
char  len_^ow; 
char  lenjilgh; 
int  1; 
int  rcvflag  =  NOTOK; 


/•  contents  of  packet  received 
/*  pointer  to  length.  Returns 
packet  to  calling  routine 

/*  controller's  replies  to  host 
/•  status  byte  from  controller 
/•  low-order  byte  of  length 
/•  high-order  byte  of  length 
/*  index  in  loop  •/ 


/•  holds  OK  or  NOTOK 
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/•  read  length  •/ 
sendcontroller(SOH) ; 
leiO-ow  s  readcontroller( ) ; 
ledjilgh  =  readcontrollerO : 
sendcontroller(ACK) ; 

/*  read  the  packet  •/ 

•plength  =  (256  •  leruhigh)  +  leiv^ow; 
for  (iaO;  1  <  •plength;  ++i) 

packetCl]  s  readcontrollerO; 
sendcontroller(ACK) ; 
rcvflag  a  OK; 

} 

else  canceK);  /•  not  reev'd  OK  •/ 

return( rcvflag) ; 


/•  enquire  -  print  ethernet  station  address 

also  re-lnltlallzes  sreaddress  •/ 


enqulreC ) 

{ 

/»  get  address,  print  It  •/ 
sreaddress  a  findaddress( ) ; 

prlntf ( "This  station  address  Is  %2x  H\n",  sreaddress); 

} 


/•  cancel  -  send  cancel  command  to  controller  •/ 

canceK ) 

{ 


char  reply;  /•  controller’s  reply  to  CAN  •/ 

char  status;  /*  also  sends  status  byte  */ 

/•  send  CAN,  read  reply  and  status  •/ 

sendcontroller(CAN) ; 
reply  =  readcontroller( ) ; 
status  =  readcontroller( ) ; 
prlntf ( ”\ncancelled\n”) ; 

} 


/*  help  -  print  menu  of  available  commands  */ 

help( ) 

{ 

prlntf ( "Xn") ; 

prlntf ("s  •  send  a  packetXn"); 
prlntf ("r  -  receive  a  packetXn") ; 

prlntf<"e  -  enquire:  print  this  station’s  ethernet  addressXn”}; 
prlntf ("c  -  cancel  receive  commandXn'') ; 
prlntfCh  -  help:  print  this  menuNn”); 
prlntfCq  -  qult\n\n\n’'); 

) 


/*  Initializes  source  and  destination  addresses. 

source  address  Is  determined  by  enquiry  command, 
destination  address  Is  prompted  from  user.  */ 

lnltlallze( ) 

{ 

/•  Initialize  controller’s  l/o  port  •/ 

InltcontrollerC ) ; 

/*  do  ENQ  command  to  Inlt  and  print  this  station's  address  */ 
enqulre( } ; 


/*  read  dest.  address  from  terminal  */ 


prlDtf( "Enter  destination  address  <00  -  FF>  ”); 
scanf ( 2x " ,  &des taddr es s ) ; 

printf( "Destination  address  is  ^2x\n\n",destaddress} ; 
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} 


/•  find  the  ethernet  station  address  of  the  controller  */ 

/*  uses  the  ENQ  command,  returns  value  of  address  */ 

f lndaddress( ) 

{ 

char  status;  /*  status  byte  returned  from  controller  */ 

/•  send  ENQ  to  controller  •/ 
sendcontroller(ENQ) ; 

/•  read  status,  read  and  return  address  */ 

status  s  readcontroller( ) ; 
return(readcontroller( ) ) ; 

} 


/■  print  heading  and  version  number  •/ 

printbanner( } 

{ 

printf ( "\n\n\n\n") ; 

printf( "Ethernet  packet  transceiver  test\n"); 
printf ("  Version  1.0\n\n\n"); 

} 


/*  getcoomand  -  read  comnand  from  terminal 

returns  single  character  corresponding  to  the  command  */ 

getoommand( ) 

{ 

char  inputllne[MAXLlNE] ;  /*  line  read  from  terminal  */ 

/*  print  prompt,  read  line,  return  first  character  */ 

printf ( '*command>  *); 
getlice(inputllne, MAXLINE) ; 
printf(«\n«); 
return( inputlineC  0] ) ; 

} 


/•  getline  -  from  "c"  by  Kernighan  and  Kitchie,  p.  26  •/ 

getline(s,lim)  /*  returns  length  of  line  read  in  */ 

char  s[];  /•  line  that  is  read  in  •/ 

int  11m;  /*  max.  size  of  line  to  be  read  */ 

{ 

int  c,  1; 

for  (isO;  i<lim-1  &&  (csgetcharO  )  Is  EOF  &&  c  Is  »\n’;  -M-i) 
aCi]  s  c; 
if  (c  ss  »\n') 

{  8[i]  s  c; 

•M-i; 

) 

s[i]  *  ’ 
return(i) ; 

} 


/*  inltoontroller  -  open  and  Inlt.  tty  port  to  talk  to  controller  */ 

initoontroller( ) 

{ 

/*  structure  to  Initialize  tty  port  to  controller  */ 
static  struct  sgttyb  ttyb  *  { 
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B9600,  B9600, 

0,  0, 

RAW  I  ANYP 


/•  open  controller's  tty  port  •/ 

if  (  (controller  =  open(TTT«2))  ss  -i)  /•  couldn't  open  •/ 

pr In tf( "Couldn't  open  controller's  port\n"}; 

else  /*  opened  OK  so  configure  port  for  RAV,  9600  baud  */ 
if  ( 8tty( controller, A ttyb)  Is  0)  /*  couldn't  configure  */ 
prlntf( "Couldn't  configure  controller's  port\n"); 

} 


/•  sendcontroller  -  send  a  byte  to  controller  •/ 
sendcontrollerCbyte) 
char  byte;  /*  byte  to  be  sent  */ 

{ 

/•  send  the  byte,  print  error  If  not  sent  OK  •/ 

if  (wrlteC controller,  Abyte,  1)  Is  i) 

prlntfC "Can't  write  control ler\n" ) ; 

} 


/•  readoontroller  -  returns  byte  read  from  controller  •/ 

readcontrollerC ) 

{ 

char  byte;  /•  byte  read  in  •/ 

/■  read  byte,  print  error  if  not  read  OK  •/ 
if  (read (controller,  Abyte,  1}  Is  1) 


r 


p 

printf( "Can’t  read  controller\n") 
else  return(byte} ; 


i 

c 


i: 

t; 


^CONTROL  USLINIT 
BEGIN 

«  PROGRAM  TO  SEND  AND  RECEIVE  PACKETS  OVER  ETHERNET  » 
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«  GLOBAL  VARIABLE  DECLARATIONS  » 


INTEGER 

INTEGER 

BYTE 

BYTE 

BYTE  ARRAY 


CONTIN; 

CONTOUT; 

DESTADDRESS; 

SRCADDRESS; 

MSGB(0:80}; 


«  FILE  #  OF  CONTROLLER  INPUT  PORT  » 
«  FILE  #  OF  CONTROLLER  OUTPUT  PORT  » 
«  ADDRESS  DESTINATION  CONTROLLER  » 

«  ADDRESS  SOURCE  CONTROLLER  » 

«  I/O  BUFFER  FOR  TERMINAL  » 

LOGICAL  ARRAY  MSG(«)sMSGB(0) ;«  PRINT  BUFFER  —  "WORD"  EQUATE  » 
BYTE  COMMAND;  «  COMMAND  TO  BE  EXECUTED  » 


h  «  DEFINE  COMMAND  BYTES  TO/FROM  CONTROLLER  » 


n 


EQUATE  ACK 

=  ^(16)06, 

« 

NAK 

=  *(16)15, 

« 

ENQ 

s  *(16)05, 

« 

SND 

=  *(16)11, 

« 

SOH 

«  *(16)01, 

« 

« 

REC 

*  *(16)12, 

« 

CAN 

=  *(16)18; 

« 

ACKNOWLEDGEMENT  —  ALL  OK  » 

NEGATIVE  ACK  >  ERROR  HAS  OCCURED  » 
ENQUIRE  -  RETURN  STATUS  &  ADDRESS  » 
SEND  THE  FOLLOWING  PACKET  » 

START  OF  HEADER  .  DEVICE  SENDING  IS  » 
REQUESTING  THE  PACKET  LENGTH  » 

RECEIVE  PACKET  FROM  ETHERNET  » 

CANCEL  LAST  RECEIVE  REQUEST  » 


fi 

«  DEFINE  CONSTANTS 

» 

EQUATE  PACKETSIZE 

s 

128, 

« 

MAXIMUM  SIZE  OF  PACKETS  » 

MAXLINE 

s 

80, 

« 

MAXLINE  LENGTH  OF  INPUT  LINE  » 

MAXCOUNT 

8 

16, 

« 

MAXIMUM  NUMBER  OF  TRIES  BEFORE 

» 

« 

ABORTING  TRANSMISSION  ATTEMPT 

» 

OK 

8 

1, 

« 

FLAG  FOR  "OK"  » 

NOTOK 

s 

0; 

« 

FLAG  FOR  "NOTOK"  » 

«  INTRINSIC  DECLARATIONS  » 

INTRINSIC  READ, PRINT, BINARY, FREAD,FWRITE,FOPEN,FSETMODE, 
FCONTROL , lOWAIT , GETPRIVMODE , GETUSERMODE .ASCII ; 


« .  PROCEDURE  DECLARATIONS . » 


L 


«  PRINTBANNER  -  PRINT  HEADING  AND  VERSION  NUMBER  » 


PROCEDURE  PRINTBANNER; 

BEGIN 

PRINT(MSG,0,<204);  «  FOUR  BLANK  LINES  » 

MOVE  MSGB  ;s  "ETHERNET  PACKET  TRANSCEIVER  TEST"; 
PRINT(MSG,-32,]t40}; 

MOVE  MSGB  :=  "  VERSION  1.0"; 
PRINT(MSG,-15,J140); 

PRINT(MSG,0,*203);  «  THREE  BLANK  LINES  » 

END;  «  PRINTBANNER  » 


«  RWCNTLR  -  READ/WRITE  FROM  CONTROLLER  » 

COMMENT:  BECAUSE  OF  THE  LACK  OF  BUFFERING  ON  INPUT  PORTS, 
MUST  FIRST  SET-UP  READ,  THEN  WRITE,  THEN  FINISH 
READ.  THAT  IS,  CONTROLLER  RESPONDS  TOO  QUICKLY 
FOR  HP  TO  CATCH  IN  NORMAL  I/O  ; 


PROCEDURE  RWCNTLR ( INBUFFB , INLEN , OUTBUFFB , OUTLEN) ; 


VALUE  OUTLEN, 
INLEN; 


«  PASS  THESE  TWO  BY  VALUE  » 


BYTE  ARRAY  INBUFFB; 

INTEGER  INLEN; 

BYTE  ARRAY  OUTBUFFB; 

INTEGER  OUTLEN; 


«  INPUT  BUFFER  TO  CONTROLLER  » 

«  RETURNS  WITH  DATA  READ  FROM  CONTROLLER  » 
«  NUMBER  OF  BITES  TO  READ  FROM  CONT  » 

«  OUTPUT  BUFFER  TO  CONTROLLER  » 

«  ENTER  WITH  DATA  TO  SEND  TO  CONT  » 

«  NUMBER  OF  BYTES  TO  SEND  TO  CONT  » 


BEGIN 

LOGICAL  ARRAY  INBUFF(*)=INBUFFB(0) ;  «  EQUATE  TO  ELIMINATE  » 
LOGICAL  ARRAY  0UTBUFF(»)s00TBUFFB(0) ;  «  WARNING  MESGS  » 

INTEGER  DUMMY;  «  HOLDS  RETURNED  VALUE  FROM  lOWAIT,  FREAD  » 

«  SET-UP  READ,  NO  WAIT  FOR  FINISH  » 

DUMMY  :=  FREAD(CONTIN, INBUFF, -INLEN); 

«  WRITE  BUFFER  TO  CONTROLLER  » 

FWRITE( CONTOUT , OUTBUFF , -OUTLEN , > 320 ) ; 

«  FINISH  READ,  RETURN  BUFFER  AND  LENGTH  » 

DUMMY  :s  IOWAIT(CONTIN,INBUFF) ; 
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END;  «  RWCNTLR  » 


«  FIND  ETHERNET  STATION  ADDRESS  OF  THE  CONTROLLER  USING  ENQ  » 
«  COMMAND.  RETURNS  ADDRESS  IN  'ADDRESS*  PARAMETER.  » 

PROCEDURE  FINDADDRESS( ADDRESS); 

BYTE  ADDRESS;  «  RETURNS  ETHERNET  STATION  ADDRESS  » 

BEGIN 

BYTE  ARRAY  BUFF(0:1);  «  I/O  BUFFER  FOR  CONTROLLER  » 

«  LOAD  'ENQ*  INTO  BUFFER  » 

BUFF(O)  :=  ENQ; 

«  SEND  TO  CONTROLLER,  READ  STATUS  AND  ADDRESS  » 

RWCNTLR( BUFF , 2 , BUFF , 1 ) ; 

«  RETURN  ADDRESS  » 

ADDRESS  BUFFd); 

END;  «  FINDADDHESS  » 


«  ENQUIRE  -  GET  ADDRESS,  PRINT  IT  ON  TERMINAL  » 

PROCEDURE  ENQUIRE; 

BEGIN 

INTEGER  LENGTH;  «  NUMBER  OF  CHARS  RETURNED  BY  ASCII  » 

«  GET  ADDRESS  » 

FINDADDRESSCSRCADDRESS);  «  LEAVES  VALUE  IN  SRCADDRESS  » 

«  PRINT  ADDRESS  » 

MOVE  MSGB-  :=  "THIS  STATION  ADDRESS  IS  »; 

PRINT(MSG,-24,f320}; 

LENGTH  :s  ASCII( LOGICAL( SRCADDRESS) , 10, MSGB) ;  «  CONVERT  » 

PRINT(MSG, -LENGTH, J40) ; 


END;  «  ENQUIRE  » 


«  INITIALIZE  CONTROLLER'S  PORTS,  INIT  STATION  ADDRESSES  » 
PROCEDURE  INITIALIZE; 

BEGIN 

INTEGER  LENGTH;  «  TEMP  STORAGE  OF  RETURNED  VALUE  FROM  READ  » 
INTEGER  CNTLCODE;  «  CONTROL  CODE  FOR  FCONTROL  » 

BYTE  ARRAY  TTYIN(0:8);  «  INPUT  PORT  » 

BYTE  ARRAY  TTY0UT(0:8);  «  OUTPUT  PORT  » 

«  INIT  TTYIN  AND  TTYOUT  » 

MOVE  TTYIN  ;=  "ENETIN;"; 

MOVE  TTYOUT  ;s  "ENETOUT;"; 

«  OPEN  AND  INIT  CONTROLLER'S  PORTS  » 

GETPRIVMODE;  «  FOR  NO-WAIT  I/O  » 

CONTIN  :s  FOPEN(  , 1604, *4324,-36, TTYIN) ; 

IF  a  THEN  BEGIN  «  PRINT  OK  » 

MOVE  MSGB  :8  "INPUT  OPENED  OK"; 

PRINT(MSG,-15,>40); 

END; 

GETUSERMODE;  «  NO  MORE  NEED  FOR  PRIV  MODE  » 

CONTOUT  ;a  FOPEN(  , *604, *324, -36, TTYOUT) ; 

IF  a  THEN  BEGIN 

MOVE  MSGB  ;a  "OUTPUT  OPENED  OK"; 

PRINT(MSG,-16,*40); 

END; 

CNTLCODE  ;a  *074022;  «  SPEED,  TERMTYPE  » 

FCONTROL( CONTIN, 37, CNTLCODE);  «  ALLOCATE  TERMTYPE  18  AT  » 
FCONTROL( CONTOUT, 37, CNTLCODE);  «  9600  BAUD  » 

FSETMODE(CONTIN,*4);  «  INHIBIT  AUTO  CR-LF  ON  INPUT  » 

FCONTROL(CONTIN, 13, CNTLCODE);  «  ECHO  OFF  » 

FCONTROL ( CONTOUT, 1 3 , CNTLCODE) ; 

FCONTROL( CONTIN, 20, CNTLCODE);  «  DISABLE  INPUT  TIMER  » 

FCONTROLC CONTIN, 28, CNTLCODE);  «  DISABLE  BLOCK  MODE  » 
FCONTROL(CONTOUT, 28, CNTLCODE) ; 

FCONTROL (CONTIN, 27, CNTLCODE);  «  ENABLE  BINARY  TRANSFERS  >> 
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FCONTROL ( CONTOUT , 27 , CNTLCODE ) ; 

CNTLCODE  ;=  0; 

FCONTROL(CONTIN, 36, CNTLCODE);  «  MO  PARITY,  FULL  8  BITS  » 
FCONTROL(CONTOUT, 36, CNTLCODE) ; 


«  DO  ENQ  COMMAND  TO  INIT  SRCADDRESS  AND  PRINT  IT  » 
ENQUIRE; 

«  READ  DESTINATION  ADDRESS  FRCM  TERMINAL  » 

MOVE  MSGB  :=  "ENTER  DESTINATION  ADDRESS  <0  -  255>  "; 
PRINT(MSQ,-36,<320); 

LENGTH  :=  READ(MSG,-3) ; 

DESTADDRESS  :=  BYTE( BINARY( MSGB, LENGTH) ) ; 
PRINT(MSG,0,*203);  «  THREE  BLANK  LINES  » 

END;  «  INITIALIZE  » 


«  HELP  -  PRINT  LIST  OF  COMMANDS  » 

PROCEDURE  HELP; 

BEGIN 

PRINT(MSG,0,<201);  «  BLANK  LINE  » 

MOVE  MSGB  ;=  "S  -  SEND  A  PACKET"; 

PRINT(MSG,-17,J40) ; 

MOVE  MSGB  ;=  "R  -  RECEIVE  A  PACKET"; 

PRINT( MSG, -20,^40); 

MOVE  MSGB  ;=  "E  -  ENQUIRE;  PRINT  THIS  STATION'S  ADDRESS"; 
PRINT(MSG, -42,^40); 

MOVE  MSGB  ;=  "C  -  CANCEL  RECEIVE  COMMAND"; 
PRINT(MSG,-26,)t40); 

MOVE  MSGB  ;=  "H  -  HELP:  PRINT  THIS  LIST"; 

PRINT(MSG, -26,5140); 

MOVE  MSGB  :r  "Q  -  QUIT"; 

PRINT(MSG,-8,5^40); 

PRINT(MSG,0,5t201);  «  BLANK  LINE  » 

END;  «  HELP  » 


«  ERROR  -  MESSAGE  FOR  INVALID  COMMAND  » 
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PROCEDURE  ERROR; 

BEGIN 

MOVE  MSGB  :s  "•••ERROR  -  NO  SUCH  COMMAND"; 
FRINT(MSG,-^6,!^40}; 

END;  «  ERROR  » 


«  SENDPACKET  -  SEND  A  SINGLE  PACKET.  ADDRESSES  ARE  EMBEDDED  » 
«  WITHIN  THE  PACKET.  RETURNS  XMITFLAG  s  OK  IF  GOOD  » 
«  TRANSMISSION,  NOTOK  OTHERWISE.  LEAVES  PACKET  UNCHANGED.  » 

PROCEDURE  SENDPACKETC PACKET, LENGTH, XMITFLAG) ; 


VALUE  LENGTH; 


«  PASS  BX  VALUE  » 


BYTE  ARRAY  PACKET; 
INTEGER  LENGTH; 
INTEGER  XMITFLAG; 


«  PACKET  TO  BE  SENT  WITH  EMBEDDED  ADDRESS  » 
«  LENGTH  OF  PACKET  IN  BYTES  » 

«  RETURNS  ’OK'  OR  ’NOTOK*  » 


BEGIN 

BYTE  ARRAY  BUFF(0:1}:  «  BUFFER  FOR  SENDING  COMMANDS  » 

«  TO/FR(»!  CONTROLLER  » 


«  INIT  XMITFLAG  » 

XMITFLAG  ;=  NOTOK; 

«  READY  CONTROLLER  TO  XMIT  BY  SENDING  ’SND’.  » 
«  READ  REPLY  AND  STATUS  » 


BUFF(0}  SND; 

RWCNTLR(BUFF,2,BUFF,1);  «  SEND  1  BYTE,  READ  2  BYTES  » 

IF  BUFF(O)  =  SOH  «  REPLY  IS  SOH  » 

THEN  BEGIN  «  SEND  LENGTH,  READ  REPLY  AND  STATUS  » 
BUFF(O)  :s  ByTE(LENGTH.(8:8));  «  LOW-ORDER  8  BITS  » 
BUFF(I)  :s  BYTE(LENGTH.(0:8));  «  HIGH-ORDER  8  BITS  » 
RWCNTLR(BUFF,2,BDFF,2);  «  READ/WRITE  2  BYTES  » 

IF  BUFF(O)  s  ACK  «  CONTROLLER  READY  FOR  PACKET  » 

THEN  BEGIN  «  SEND  PACKET,  READ  REPLY,  STATUS  » 
RHCNTLR( BUFF, 2, PACKET, LENGTH) ; 

IF  BUFF(O)  a  ACK  «  XMIT  OK  » 

THEN  XMITFLAG  ;=  OK; 

END; 

END; 
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END;  «  SENDPACKET  » 


«  SEND  -  READ  A  PACKET  FR(»1  THE  TERMINAL  AND  SEND  IT  OVER  THE  » 
«  ETHERNET.  WILL  TRY  TO  SEND  PACKET  A  MAXIMUM  OF  ’MAXCOUNT*  » 
«  TIMES.  ASSUMES  ADDRESSES  ARE  INTITIALIZED  IN  'SRCADDRESS*  » 
«  AND  'DESTADDRESS*.  » 


PROCEDURE  SEND; 

BEGIN 

BYTE  ARRAY  PACKET(0:PACKETSIZE) ;  «  COMPLETED  PACKET  TO  SEND  » 

«  WITH  DEST:SRC;DATA  FORMAT  » 
INTEGER  LENGTH;  «  NUMBER  OF  BYTES  READ  FROM  TERMINAL  » 
INTEGER  COUNT;  «  NUMBER  OF  ATTEMPTS  TO  XMIT  SO  FAR  » 

INTEGER  XMITFLAG;  «  INDICATES  IF  PACKET  EMITTED  OK  OR  NOT  » 

INTEGER  I;  «  INDEX  IN  LOOP  » 

INTEGER  TEMP;  «  USED  IN  ASCII  CONVERSION  FOR  PRINTING  » 

«  INIT  COUNT  » 

COUNT  :a  0; 

«  READ  PACKET  FROM  THE  TERMINAL  » 


MOVE  MSGB  :s  "ENTER  PACKET  TERMINATED  BY  <RET>:  "; 
PRINT(MSG,-35,$40); 

LENGTH  :a  READ(MSG, -MAXLINE) ; 

«  CREATE  PACKET,  IE.  ADD  ADDRESSES  TO  START  » 

PACKET(O)  :s  DESTADDRESS; 

PACKETd)  :s  SRCADDRESS; 

FOR  I  ;=  0  UNTIL  LENGTH  -  1 
DO  PACKET(I+2)  ;=  MSGB(I); 

«  TRY  TO  SEND  PACKET  UNTIL  OK  OR  TOO  MANY  TIMES  » 


DO  BEGIN 

SENDPACKET( PACKET, LENGTH+2, XMITFLAG) ; 

COUNT  :=  COUNT  +  1; 

END 

UNTIL  XMITFLAG  a  OK  OR  COUNT  >a  MAXCOUNT; 

«  PRINT  MESSAGE  ABOUT  TRANSMISSION  » 

IF  XMITFLAG  =  OK 
THEN  BEGIN 


62 


MOVE  MSGB  :s  "PACKET  TRANSMITTED  OK  AFTER 
FRINT(MS6,-28,]^320); 

TEMP  :s  ASCIK COUNT, 10, MSGB); 
PRINT(MSG,-TEMP,]^320) ; 

)«)VE  MSGB  :>  "  TRIES”; 

PRINT(MSG,-6,]C40); 

END  «  THEN  » 

ELSE  BEGIN 

MOVE  MSGB  :=  "•••—PACKET  NOT  TRASMITTED  OK"; 
PRINT(MSG, -27,^40); 

END;  «  ELSE  » 

END;  «  SEND  » 


«  CANCEL  -  SEND  CANCEL  COMMAND  TO  CONTROLLER  » 

PROCEDURE  CANCEL; 

BEGIN 

BYTE  ARRAY  B0FF(0:1);  «  BUFFER  FOR  COMMANDS  TO/FRMi  CONT  » 

«  SEND  'CAN',  READ  REPLY  AND  STATUS  » 

BUFF(O)  ;s  CAN; 

RWCNTLR(BUFF,2,BUFF,1);  «  SEND  1  BYTE,  READ  2  » 

MOVE  MSGB  ;=  "CANCELLED"; 

PRINT(MSG,-9tl40}; 

END;  «  CANCEL  » 


«  HECVPACKET  -  RECEIVES  A  PACKET  FROM  THE  ETHERNET  WITH  THIS  » 
«  STATION'S  ADDRESS  OR  THE  BROADCAST  ADDRESS.  RETURNS  WITH  » 
«  RCVFLAG  s  OK  IF  RECEIVED  OK,  NOTOK  OTHERWISE.  CANCELS  » 

«  RECEIVE  COMMAND  (WITH  'CAN')  IF  NOT  RECEIVED  OK.  » 

i 

PROCEDURE  RECVPACKET( PACKET, LENGTH, RCVFLAG) ; 

BYTE  ARRAY  PACKET;  «  RETURNS  WITH  PACKET  RECEIVED  » 

INTEGER  LENGTH;  ''<  RETURNS  LENGTH  OF  RECEIVED  PACKET  » 


INTEGER  HCVFLAG;  «  RETURNS  *0K*  OR  *NOTOK'  » 

BEGIN 

BYTE  ARRAY  B0FF(0:1);  «  BUFFER  FOR  SENDING  COMMANDS  » 

«  TO/FROM  CONTROLLER  » 

«  INIT.  FLAG  » 

HCVFLAG  ;s  NOTOK; 

«  TELL  CONTROLLER  TO  RECEIVE  PACKET.  WAITS  UNTIL  PACKET  » 

«  IS  RECEIVED.  » 

BUFFCO)  :s  REC; 

RWCNTLR(BUFF,2,B0FF,1);  «  SEND  1  BYTE,  READ  2  BYTES  » 

«  CHECK  IF  PACKET  RECEIVED  OK  » 

IF  BUFF(O)  =  ACK  «  PACKET  OK  » 

THEN  BEGIN 

«  SEND  'SOH',  READ  LENGTH  » 

BUFF(O)  :=  SOH; 

RHCNTLR(B0FF,2,B0FF,1);  «  SEND  1  BYTE,  READ  2  BYTES  » 
LENGTH  :*  256  •  BOFF(1)  +  BOFF(O); 

«  SEND  »ACK',  READ  PACKET  » 

BUFF(O)  ACK; 

RHCNTLR( PACKET , LENGTH , BUFF , 1 ) ; 

«  SEND  CONTROLLER  FINAL  ’ACK*  » 

BUFF(O)  :=  ACK; 

RWCNTLR(BUFF,0,B0FF,1);  «  SEND  1  BYTE,  READ  NO  BYTES  » 

«  RETURN  FLAG  ’OK’  » 

HCVFLAG  OK; 

END  «  THEN  » 

ELSE  CANCEL;  «  NOT  RECEIVED  OK,  SO  CANCEL  'REC  » 

END;  «  HECVPACKET  » 


«  RECEIVE  -  RECEIVE  A  PACKET  ON  THE  ETHERNET  AND  PRINT  IT  ON  » 
«  THE  TERMINAL  » 

PROCEDURE  RECEIVE; 


BEGIN 
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BYTE  ARRAY  PACKET( 0 : PACKETSIZE) ;  «  WILL  CONTAIN  RECV'D  PACKET  » 

INTEGER  LENGTH;  «  LENGTH  OF  RECEIVED  PACKET  » 

INTEGER  RCVFLAG;  «  INDICATES  IF  PAKCET  RECEIVED  OK  » 

INTEGER  TEMP;  «  USED  IN  ASCII  CONVERSION  FOR  PRINTING  » 

«  PRINT  MESSAGE  AND  RECEIVE  THE  PACKET  » 

MOVE  MSGB  IS  "WAITING  FOR  PACKET  ON  THE  ETHERNET..."; 
PRINT(MSG,-37,>40); 

RECVPACKET( PACKET, LENGTH , RCVFLAG) ; 

IF  RCVFLAG  =  OK 

THEN  BEGIN  «  PRINT  ADDRESSES  AND  PACKET  » 

MOVE  MSGB  :=  "PACKET  RECEIVED  OK"; 

PRINT(MSG,-18,$202); 

MOVE  MSGB  ::  "DESTINATION  ADDRESS: 

PRINT(MSG,-21,;^320); 

TEMP  :=  ASCII(LOGICAL(PACKET(O)),10,MSGB); 

PRINT(MSG,-TEMP,J40) ; 

MOVE  MSGB  :s  "SOURCE  ADDRESS:  "; 

PRINT(MSG,-16,$320); 

TEMP  :s  ASCII(LOGICAL(PACKET(1)),10,MSGB); 
PRINT(MSG,-TEMP,J202) | 

PRINT(PACKET( 2), -(LENGTH  -  2), >202); 

END  «  THEN  » 

ELSE  BEGIN 

MOVE  MSGB  :s  "PACKET  DAMAGED.  RECEIVE  CANCELLED"; 
PRINT(MSG,-34,>202); 

END;  «  ELSE  » 


«  GETCOMMAND  -  READ  COMMAND  FROM  KEYBOARD  » 
PROCEDURE  GETCOMMAND (COMMAND); 

BYTE  COMMAND;  «  RETURNED  COMMAND  CHARACTER  » 


BEGIN 

INTEGER  TEMP;  «  TEMP  VARIABLE  TO  HOLD  RETURNED  VALUE  » 
MOVE  MSGB  ;s  "ENTER  COMMAND»  "; 
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PRINT(MSG,-16,*320); 

TEMP  :s  READ(MSG,-1);  «  READ  CHAR  FROM  KEYBOARD  » 
COMMAND  MSGB(O);  «  RETURN  CHAR  » 

END;  «  GETCOMMAND  » 


« 


MAIN  PROGRAM 


» 


«  MAIN  PROGRAM  TO  READ  AND  PROCESS  COMMANDS  » 


PRINTBANNER;  «  PRINT  HEADING,  VERSION  NUMBER  » 
INITIALIZE;  «  OPEN  CONTROLLER’S  PORT,  ETC.  » 
HELP;  «  PRINT  LIST  OF  COMMANDS  » 

«  EXECUTE  COMMANDS  UNTIL  QUIT  » 


GETCOMMANDC COMMAND);  « 

WHILE  COMMAND  <>  "Q"  DO 
BEGIN 

IF  COMMAND  =  "S" 

THEN  SEND 

ELSE  IF  COMMAND  =  "R" 
THEN  RECEIVE 
ELSE  IF  COMMAND  =  "E" 
THEN  ENQUIRE 
ELSE  IF  COMMAND  =  »C» 
THEN  CANCEL 
ELSE  IF  COMMAND  r  "H" 
THEN  HELP 
ELSE  ERROR; 

GETCOMMANDC COMMAND) ; 
END;  «  WHILE  » 


READ  FIRST  COMMAND  » 

«  SEND  A  PACKET  » 

«  RECEIVE  A  PACKET  » 

«  ENQUIRE  » 

«  CANCEL  » 

«  PRINT  THIS  LIST  » 

«  PRINT  ERROR  MESSAGE  » 
«  GET  NEXT  COMMAND  » 


END.  «  MAIN  » 
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/*  program  to  send  files  over  the  ethernet. 

Called  as:  sendhp  srcflle  [destflle]  to  send  a  file  to  the  hpSOOO 
or  gethp  srcflle  [destflle]  to  read  a  file  from  the  hpSOOO 

The  command  gethp  must  be  linked  to  this  same  program. 

That  Is,  compile  the  program  as 
cc  ethernet.c  -o  sendhp* 

which  puts  the  object  code  In  the  file  sendhp.  This  must  then  be 
linked  to  gethp  using  the  command 
'In  sendhp  gethp* 

which  causes  both  of  these  names  to  point  to  the  same  file. 

The  destflle  Is  optional  and  defaults  to  be  the  same  as  the  srcflle. 
If  file  name  on  the  hp  is  not  fully  specified,  it  will 
store  the  file  In  the  public  area  or  try  to  retrieve  the  file 
from  the  public  area.  This  public  area  Is  ETHERNET. SYS. 

Returns  an  error  code  via  call  to  exit(  )  when  program  terminates. 
Return  of  zero  means  all  went  ok. 

•/ 


/»  include  program  libraries  •/ 


#lnclude  <stdlo.b> 
#lnclude  <sgtty.b> 
#lnclude  <slgnal.h> 


/•  standard  i/o  library  •/ 

/*  library  for  tty  set-ups  •/ 

/•  library  for  signals  (time-out)  •/ 


/•  define  constants  •/ 


#deflne 

#deflne 

#deflne 

#define 

#deflne 

#deflne 

fdefine 

#deflne 

#deflne 

fdefine 

fdefine 


TTY  "/dev/ttyOE"  /• 
PACKETSIZE  126  /» 
DATASIZE  PACKETSIZE  • 


MAXCODNT  6 

OK  1 
NOTOK  0 
TIMEOUT  5 
T  1 
F  0 
VAX  0 
HP  1 


/• 

/• 

/• 

/• 

/• 

/• 

/• 

/• 


port  to  connect  controller  to  •/ 
maximum  size  of  packets  */ 

•6  /*  size  of  data  In  packet  */ 

maximum  number  of  tries  before  aborting 
transmission  attempts  */ 

flag  Indicates  transmission  was  OK  */ 
flag  Indicates  transmission  was  not  OK  */ 

time-out  (In  seconds)  for  read  */ 

true  flag  •/ 

false  flag  •/ 

flags  to  indicate  which  machine  Is  */ 
the  source  of  the  file  transfer  •/ 


/•  define  packet  types  •/ 


#deflne 

ACKFILE 

1 

/• 

file  packet  received  ok 

•/ 

#deflne 

NAKFILE 

2 

/• 

packet  not  received  ok,  or 

•/ 

/• 

sane  other  error 

•/ 

#deflne 

DATAFILE 

3 

/• 

packet  contains  file  data 

•/ 

#deflne 

ENDFILE 

5 

/• 

end  of  file 

•/ 

#deflne 

ENDREPLY 

6 

/• 

ack  for  ENDFILE 

•/ 

fdeflne 

SENDFILE 

7 

/• 

prepares  receiver  to  send  file 

•/ 

/• 

named  In  DATA  part  of  packet 

•/ 

#deflne 

RECFILE 

8 

/* 

prepares  receiver  to  read  and 

•/ 

/• 

save  file  named  In  DATA  part 

•/ 

/*  define  command  bytes  for  controller  */ 


#deflne 

#deflne 

ideflne 

#deflne 

#deflne 

#deflne 

#deflne 


ACK 

0x06 

/• 

acknowldgement  -  all  ok  */ 

NAK 

0x15 

/» 

negative  acknowledge  >  error 

has 

occured  •/ 

ENQ 

0x05 

/• 

enquiry  command  */ 

SEND 

0x11 

/• 

send  the  following  packet  */ 

SOH 

0x01 

/• 

start  of  header  -  device  sending 

SOH  Is 

requesting  the  packet 'length 

•/ 

REC 

0x12 

/• 

receive  packet  from  Ethernet 

*/ 

CAN 

0x18 

/» 

cancel  last  receive  request 

•/ 

/• 

/• 


define  error  codes  returned  by  main  program 

these  Indicate  status  of  program  when  It  terminates,  returned 


/»  via 

an  exlt( .) 

call 

• 

#deflne 

NOERROR 

0 

/• 

#deflne 

BAD ARCS 

1 

/• 

#deflne 

BADOPENVAX 

2 

/• 

#deflne 

BADREMOTE 

3 

/• 

ideflne 

CONTDOWN 

it 

/■ 

ideflne 

NOCONTOPEN 

5 

/» 

ideflne 

NOCONFIG 

6 

/• 

ideflne 

XMITERROR 

7 

/• 

ideflne 

BADOPENHP 

8 

/• 

•/ 


can't  open  srcflle  on  VAX 
remote  machine  not  responding 


•/ 

•/ 

•/ 


by  remote  host. 


•/ 

•/ 

•/ 


Jr's  port  •/ 

Ler's  port  •/ 
packets  not  ack'ed 


/*  declare  golbal  variables  */ 
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ohar  destaddress; 
char  sroaddress; 
Int  controller; 
Int  tlmedout; 


/*  addreas  of  destination  controller  */ 

/*  address  of  source  (this)  controller  */ 

/•  file  descriptor  of  controller  port  •/ 

/■  flag  to  indicate  if  read  has  timed-out  */ 


/ 
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/*  main  program  -  gets  arguments  from  command  line  and  calls  appropriate 

routine  to  send/receive  the  file  */ 

maln(argc,argv) 

int  argc;  /*  command  line  argument  count  */ 

char  •argv[];  /•  argument  values  -  ie.  program 

name  and  filenames  */ 


char  sroflleCSO]; 
char  destfileCSO]; 
int  srcmachine; 


int  errorcode ; 


/•  name  of  source  file  •/ 

/•  name  of  destination  file  */ 

/*  flag  to  indicate  which  machine  is  to 
be  the  source  of  the  file.  Determined 
by  the  name  the  program  was  called 
with.  •/ 

/»  error  number  to  be  returned  •/ 


/*  get  names  of  files  and  the  source  machine  */ 

if  (  (argc  <  2)  1 1  (argc  >  3)  )  /*  check  number  of  args  •/ 

{ 

fprlntf(stderr, "Usage  is;  %3  srofile  [destfile]\n", 
argvCO]); 

errorcode  s  BADARGS; 

) 

else 

{  /•  find  source  machine  •/ 

if  (strcmp(argv[0] ,"sendhp")  ==  0)  /•  matches  »/ 

srcmachine  s  VAX; 
else  srcmachine  s  HP; 

/•  get  name  of  source  file  •/ 
strcpy( srcf ile ,argvC 1 ] ) ; 

/•  get  name  of  destflle,  defaults  to  srofile  •/ 
if  (argc  a=  3)  /•  there  is  a  destfile  given  •/ 

strcpy(destflle,argv[2]) ; 
else  strcpy( destfile, srofile) ; 
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/*  init  network  addresses,  open  controller's  port  */ 

If  ((errorcode  a  InltlallzeO)  =s  0)  /•  no  error  •/ 

{ 

/*  send  or  receive  the  file,  as  appropriate  */ 

If  (srcmachlne  ss  VAX) 
errorcode 

s  sendfromvax(srcflle,destflle) : 
else  errorcode  a  getfrombp(srcflle,destflle) ; 

} 


exit (errorcode) ; 

/*  end  of  main  program  */ 


/*  sendfromvax  >  procedure  to  send  a  file  from  the  vax  to  the  hp  using 
the  sendaflle  routine  after  Initiating  communication  with  the  hp 
over  the  net.  Checks  for  errors  if  the  file  does  not  exist,  etc. 
Returns  0  if  sent  ok,  else  returns  an  errorcode.  */ 


sendf romvaxC  srcf lie , destf lie) 

char  srcflleCJ; 
char  destflleCi; 


/*  name  of  file  to  be  sent  */ 

/*  name  to  call  file  at  destination  */ 

int  filenum;  /•  file  number  returned  by  open  •/ 

char  packet[40j;  /*  packet  used  to  Initiate  comm.  */ 

int  packlen;  /*  length  of  finished  packet  */ 

int  errorcode;  /•  returned  error  code  •/ 

/•  open  the  file  •/ 

if  (  (filenum  a  open(srcfile,0) )  aa  -i  )  /»  not  opened  ok  •/ 

{ 

fprintf(stderr,  "ERROR  -  can't  open  J^s  on  VAX\n",  srcf  lie) ; 
errorcode  a  BADOPENVAX; 

) 

else 

{ 

/*  send  RECFILE  to  initiate  communication  with  the  hp. 
Includes  destf He  as  data  portion  of  packet.  */ 


strcpy(&packet[6] ,destfile) ; 

asseo(RECFIL£,0,strlen(destflle) , packet f&packlen) ; 

If  (senderrorfree( packet, packlen)  rs  NOTOK) 

{ 

fprintf(stderr, 

"Remote  machine  does  not  respond\n"}; 
erroroode  s  BADREMOTE; 

) 

else  /■  hp  is  now  ready  for  this  file  •/ 

{ 

errorcode  s  sendafile(fllenum) ; 
close (filenuffl) ; 

} 

} 

return( errorcode) ; 

}  /•  end  of  sendfromvax  •/ 


/*  getfromhp  -  procedure  to  receive  a  file  from  the  hp  using 
the  recvaflle  routine  after  initiating  communication  with 
the  hp  over  the  net. 

If  a  file  already  exists  with  the  same  name,  this  routine 
will  append  ' .new*  to  the  fllenause  to  avoid  overwriting 
the  already  existing  file. 

Returns  0  if  the  file  is  received  OK, 

else  returns  an  error  code  */ 


getf romhpC  srcf lie , destf lie } 


{ 


char 

srcfileC] ; 

/• 

char 

destf IleC ] ; 

/• 

Int 

filenum; 

/• 

char 

packet[40] ; 

/• 

int 

packlen; 

/• 

int 

errorcode ; 

/■ 

int 

packtype ; 

/» 

name  of  file  to  be  recv*ed  from 
name  to  call  file  at  this  end 

file  number  returned  by  creat 
packet  used  to  initiate  comm 
length  of  finished  packet 
returned  error  code 
type  of  packet  recv'ed  from 
senderrorfree 


hp 


•/ 

•/ 


•/ 

•/ 

•/ 

•/ 

•/ 


/*  send  a  SENDFILE  packet  to  initiate  communication  with  the  hp. 
Includes  srcflle  name  as  data  portion  of  the  packet.  */ 


strcpy(&packet[6] ,srcfile} ; 
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asseffl(SENDFILE,0,strlen(srcfile) ,packet,&packlen) ; 
packtype  s  senderrorfree( packet, packlen) ; 

If  (packtype  ==  NOTOK)  /*  not  sent  */ 

{ 

fprlntf(stderr, "Remote  machine  does  not  respondXn"}; 
errorcode  a  BADREMOTE; 

} 

else  /*  check  If  hp  Is  ready  to  send  */ 

if  (packtype  as  NAKFILE) 

{ 

fprintf(atderr, 

"Error:  can't  open  i^s  on  remote  machlneNn”, 

srcfile) ; 

errorcode  a  BADOPENHP; 

1 

else  /*  hp  is  now  going  to  start  sending  the  file  */ 

{ 

/*  check  If  a  file  already  exits  with  same  name  */ 
if  (open(destflle,0)  la  -i)  /•  if  it  exists  •/ 

/*  rename  file  to  be  xxxx.new  */ 
strcat(destfile,".new") ; 

/•  now  create  file  and  receive  it  from  the  net  •/ 
fllenum  a  creat(destfile,0755) ; 
errorcode  a  recvaflle(filenum) ; 
close (fllenum) ; 

} 

return( errorcode) ; 

)  /•  end  of  getfromhp  •/ 


/*  Initialize  -  open  controller's  ports  and  init.  network  addresses  */ 
/*  returns  0  if  initialized  ok,  else  returns  an  error  code  */ 

lnitlalize( ) 

{ 

int  errorcode;  /•  error  code  to  be  returned  •/ 

int  temp;  /•  temp  variable  for  address  •/ 

/•  init  controller's  port  •/ 

if  ((errorcode  a  InltoontrollerO)  as  0)  /•  opened  ok  •/ 

/*  init  network  addresses  */ 
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if  ((temp  =  findaddreas( ) )  =s  -i)  /•  controller  dead  •/ 

{ 

fprintf(stderr, "Controller  on  VAX  is  dead\n"); 
errorcode  =  CONTDOWN; 

} 

else  /*  init  addresses,  asstunes  only  2  stations  */ 
if  (temp  ==  0x1 f) 

{ 

srcaddress  =  0x1 f; 
destaddress  s  0x2f; 

} 

else 

{ 

srcaddress  =  0x2f; 
destaddress  =  0x1 f; 


return(errorcode) ; 

} 


/*  sendaflle  -  sends  a  file  to  the  remote  machine  using  a  stop-and-wait 
protocol  with  positive  acknowledgement  and  retransmission. 

Enter  this  routine  with  the  file  descriptor  (ie.  the  file  must  be 
already  opened)  and  the  remote  machine  ready  and  waiting  to 
receive  the  file.  •/ 

sendarile( f llenum) 

int  f llenum;  /*  file  number  of  opened  file  to  send  */ 

{ 

int  errorcode;  /•  returns  an  errorcode  •/ 

char  packet[PACKETSIZE];  /•  holds  packets  of  file  •/ 

int  packlen;  /*  length  of  assembled  packet  */ 

int  datalen;  /•  length  of  data  portion  •/ 

int  seqnum  si;  /*  sequence  number  of  packets  */ 

int  ackflag  =  ACKFILE;  /*  indicates  if  packets  being  ack'ed  */ 

/*  send  the  file  as  packets  while  not  end-of-flle  •/ 


while  (  ((datalen  s  read(filenum,4paoket[6] ,DATASIZE))  >  0) 
&&  (ackflag  s=  ACKFILE)  ) 


{ 


/*  assemble  and  send  the  packets  */ 
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as  sem( DATAFILE , seqDim , da talen , packe  t , Apacklen) ; 

ackflag  s  senderrorf ree( packe t, packlen) ; 

seqnuffl  =  lncseq( seqnum) ;  /*  Increment  seq.  num  */ 

} 

/*  send  "END"  packet,  wait  for  ack  */ 

assem( ENDFILE, seqnum, 0 , packe t,&packlen) ; 
ackflag  s  senderrorfree( packet, packlen) ; 

/•  send  ENDREPLY,  do  not  wait  for  ack  •/ 

seqnum  =  lncseq( seqnum) ; 
assem(ENDREPLY, seqnum, 0, packet, Apacklen) ; 
sendpacket( packet, packlen) ; 

/•  return  error  code  •/ 

if  (ackflag  ==  ACKFILE)  /•  all  packets  ack'ed  •/ 

errorcode  =  NOERROR; 
else  errorcode  s  XMITERROR; 

return( errorcode) ; 

)  /•  end  of  sendafile  •/ 


/*  recvafile  -  receives  a  file  from  the  remote  machine  using  a 
stop-and-walt  protocol.  Acks  received  packets  and  saves 
non-dupllcated  packets. 

Enter  this  routine  with  the  file  descriptor 
(le.  the  file  must  be  already  created  and  opened) 
and  the  remote  machine  already  set-up  to  begin 
sending  data  packets. 

•/ 


recvaf ile( f ilenum) 

Int  filenum;  /•  file  number  of  opened  file  in  which  to 

store  the  incoming  file.  •/ 


char  packe tC PACKETSIZE] ;  /•  received  packet  •/ 

int  packlen;  /•  length  of  received  packet  •/ 

int  packtype  =  DATAFILE;  /•  type  of  recv'ed  pack'  t  •/ 
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int  datalen;  /*  length  of  data  portion  */ 

Int  seqnum;  /*  sequence  number  of  recv'ed  packet  */ 

Int  expectnum  =  1 ;  /*  expected  sequence  number  */ 

Int  doneflag  s  F;  /*  indicates  when  done  */ 

/*  receive,  ack,  and  store  packets  untile  ENDFILE  received  */ 

while  (packtype  ss  DATAFILE) 

{ 

if  (recvpacktlme(packet,&packlen}  ss  OK) 

{ 

dlsassem( packet, &packtype,&seqnuffl,Adatalen) ; 
if  ((packtype  DATAFILE)  A&  (seqnum  s=  expectnum)) 

{ 

write(fllenuffl,&packet[6] , datalen) ; 
expectnum  =  lncseq( expectnum) ; 

} 

/•  ack  the  packet  •/ 

assem( ACKFILE , seqnum, 0 , packet , Apacklen) ; 
sendpacket(packet,packien) ; 

} 

} 

/*  perform  end -dally  sequence  of  protocol 

Wait  for  EMDREPLY  (to  ACK  of  ENDFILE)  or  timeout, 
whichever  comes  first. 

Timeout  or  ENDREPLY  both  mean  done.  If  recv'ed  packet 
is  ENDFILE,  sender  didn't  get  ACK,  so  retransmit  it.  */ 

while  (doneflag  s=  F) 

if  (  recvpacktlme(packet, Apacklen)  s=  OK  ) 

{ 

disa8seffl( packet , Apacktype , Aseqnum , Adatalen) ; 
if  (packtype  ss  ENDREPLY)  /*  got  ack,  so  done  */ 
doneflag  s  T; 

else  /•  retransmit  ACK  •/ 

{ 

aasem( ACKFILE , seqnum , 0 , packet , Apacklen) ; 
sendpacket(packet,packien) ; 

} 

} 

else  /■  timed  out,  so  done  •/ 

doneflag  s  T; 

return( NOERROR) ; 


/•  end  of  recvaflle  */ 
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/*  laoseq  -  Increment  the  sequence  number.  Returns  the  new  sequence 
number.  •/ 

Incseq(n) 

int  n;  /*  number  to  be  incremented  */ 

ns(n-i>1)t  256;  /•  modulo  256  •/ 

returnCn) ; 


/*  senderrorfree  -  sends  a  packet  and  waits  for  an  ACK 
from  the  receiver. 

If  no  ACK,  times  out  and  retranmaits  until  a  packet 
comes  or  it  has  tried  MAXCOONT  times. 

Returns  type  of  packet  received,  if  one  was  received, 
or  NOTOK  if  no  packet  is  ever  received  •/ 

senderrorfree( packet , packlen) 

char  packetC]; 
int  packlen; 

{ 

char  rcvpack[50]i 
int  rlength; 
int  count  s  0; 
int  rtnflag  =  NOTOK; 

/•  send  the  packet  •/ 
sendpacket( packet, packlen) ; 

/*  wait  for  ACK  with  time  out,  re-xmlt  up  to  MAXCOUNT  times  */ 

while  (  ((rtnflag  =  recvpacktime(rcvpack,&rlength) )  1=  OK) 

&A  (++count  <  MAXCOUNT)  ) 

sendpacket(packet, packlen) ;  /•  retransmit  packet  •/ 

/•  check  if  a  packet  was  received  •/ 

if  (rtnflag  s=  OK)  /•  packet  recv'ed  »/ 

rtnflag  s  rcvpackC2];  /•  packet  type  •/ 

/•  return  the  flag  •/ 
return( rtnflag) ; 


/•  packet  to  be  sent  •/ 

/*  length  of  the  packet  */ 

/•  received  ACK  packet  •/ 

/•  length  of  ACK  packet  •/ 

/•  counter  for  number  of  xmit  tries  •/ 
/•  flag  to  be  returned  •/ 
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/•  assem  -  assembles  a  packet  into  the  required  form,  le.  prepends 
addresses,  etc.  onto  data  already  stored  in  "top"  portion  of 
packet,  •/ 

assem( packtype , seqnum , datalen, packet , packlen) 


int  packtype;  /* 

Int  seqnum;  /* 

Int  datalen;  /* 

char  packetCi;  /* 

int  •packlen;  /• 

{ 


/•  assemble  the  packet  */ 

packetCO]  =  destaddress; 
packet[1]  s  srcaddress; 
packet[2]  =  packtype; 
packet[3]  =  seqnum; 
packetCM]  =  datalen  /  256; 
packetC5]  =  datalen  -  (256 

/•  return  packet  length  •/ 

•packlen  s  datalen  6; 

}  /•  end  of  assem  •/ 


type  of  packet  •/ 

sequence  number  •/ 

length  of  data  portion  •/ 

returns  assembled  packet;  enter 

with  data  already  In  packet  •/ 

returns  length  of  assembled  packet  •/ 


/•  truncates  fraction  •/ 
•  packet[4]); 


/•  dlsassem  >  disassembles  a  packet. 

Returns  via  pointers  the  packet  type,  the  sequence  number, 
and  the  length  of  the  data  portion.  •/ 

dlsassem( packet , packtype , seqnum, datalen) 

char  packetCJ;  /•  packet  to  be  disassembled  •/ 

;Lnt  •packtype;  /•  returns  packet  type  •/ 

Int  •seqnum;  /•  returns  sequence  number  •/ 

Int  •datalen;  /•  returns  length  of  data  portion  •/ 

{ 

int  thigh;  /•  temporaries  for  type  conversion  •/ 

int  tlow; 

/•  disassemble  the  packet  •/ 


1 
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*packtype  =  packet[2]; 

•aeqnum  =  packetC3]  4  0377*  /*  only  want  lower  8  bits  */ 

thigh  =  packetC4]  &  0377*  /*  no  sign  extension  */ 

tlow  s  packet[5]  4  0377;  /•  no  sign  extension  •/ 

•datalen  =  256  •  thigh  tlow; 

} 


/*  sendpacket  >  send  a  single  packet,  addresses  are  embedded  within 
the  packet,  returns  OK  if  good  transmission,  NOTOK  otherwise  */ 

sendpacketCpacket, length) 

char  packetCj;  /*  packet  to  be  sent  */ 

int  length;  /•  length  of  packet  •/ 

{ 

char  reply;  /•  controller's  replies  to  host  •/ 
char  status;  /•  status  byte  from  controller  */ 
int  xmltflag  =  NOTOK;  /•  hold  OK  or  NOTOK  •/ 
char  leu_low;  /•  low-order  byte  of  length  •/ 
char  lehjiigh;  /•  high-order  byte  of  length  •/ 
int  i;  /•  index  in  loop  •/ 

/*  split  length  into  high-  and  low-order  parts  */ 

lenjilgh  =  length  /  256;  /•  truncates  fraction  •/ 

len_low  =  length  -  (lenjiigh  •  256); 

/•  ready  controller  to  xmit  •/ 

sendcoatroller(SEND) ; 
reply  »  readcontroller( ) ; 
status  s  readcontroller() ; 

if  (reply  ==  SON)  /•  controller  ready  •/ 

{ 

sendcontroller(lerulow) ; 
sendcontroller(lehjilgh) ; 
reply  =  readcontroller( ) ; 
status  s  readcontrcller( ) ; 

if  (reply  ss  ACK)  /•  controller  ready  •/ 

{ 

for  (isO;  Klength;  ++i)  /•  send  packet  •/ 

sendcontroller(packetCl]) ; 
reply  *  readcontroller( ) ; 
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/*  recvpacket  -  receives  a  packet  from  the  ethernet  with  this 
stations 's  address  or  the  broadcast  address, 
returns  OK  If  reev'd  OK,  NOTOK  otherwise, 
values  of  packet  and  length  returned  via  pointers 
cancels  receive  command  If  not  received  OK  */ 

r ec vpacke  t ( packe  t , pie ng th } 

char  packetC];  /*  contents  of  packet  received  */ 

Int  *plength;  /*  pointer  to  length.  Returns  length  of 


packet  to  calling  routine  */ 

{ 

char  reply;  /•  controller's  replies  to  host  •/ 

char  status;  /*  status  byte  from  controller  */ 

char  lenJ.ow;  /•  low-order  byte  of  length  •/ 

char  len_hlgh;  /■  high-order  byte  of  length  •/ 

int  1;  /*  index  In  loop  •/ 

Int  rcvflag  s  NOTOK;  /•  bolds  OK  or  NOTOK  •/ 


/■  tell  controller  to  receive  packet  •/ 

sendcontroller(REC) ; 
reply  s  readcontroller( ) ; 
status  s  readcontroller( } ; 

/*  check  if  packet  reev'd  OK  */ 

if  (reply  ss  ACK)  /*  packet  OK  ■/ 

{ 

/•  read  length  •/ 
sendcontroller(SOH) ; 
lenJLow  a  readcontroller( ) ; 
lehJilgh  a  readcontrollerC) ; 
sendoontroller(ACK) ; 

/■  read  the  packet  •/ 

•plength  a  (256  •  lehJiigh)  +  1mi_1ow; 
for  (iaO;  1  <  •plength;  ++1) 
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packetCl]  =  readcontrollerC } ; 
sendcontroller( ACK) ; 
rcvflag  s  OK I 

1 

else  canceK);  /•  not  reev'd  ok  •/ 

return( rcvflag) ; 


/*  recvpacktlme  -  receives  a  packet  with  time-out.  Returns  OK 
If  packet  received  ok,  or  NOTOK  If  packet  damaged  or 
time-out  occurred. 

Values  of  packet  and  plength  are  returned  via  pointers. 

It  cancels  the  receive  request  If  no  received  ok  or  time-out. 

•/ 

recvpacktlme ( packet , plength) 

char  packetC];  /*  contents  of  packet  received  */ 

Int  *plength;  /*  pointer  to  length.  Returns  length  of 


packet  to  calling  routine 

•/ 

Int 

reply; 

/•  controller's  replies  to  host 

•/ 

Int 

status; 

/*  status  byte  from  controller 

*/ 

char  len_J.ow; 

/*  low-order  byte  of  length 

•/ 

char  lenjilgh; 

/•  hlgh-order  byte  of  length 

*/ 

Int 

if 

/*  Index  In  loop 

*/ 

Int 

rcvflag  = 

NOTOK;  /•  holds  OK  or  NOTOK 

*/ 

/•  tell  controller  to  receive  packet  •/ 


sendcontroller(REC) ; 

If  ((reply  =  read_tlmeout( ) )  =*  -1)  /•  time-out  occurred  •/ 

reply  s  nAK; 

else  status  s  readcontroller( ) ;  /*  read  next  character  */  e 

/•  check  If  packet  reev'd  OK  •/ 

If  (reply  ss  ACK)  packet  OK  •/ 

{ 

/•  read  length  •/ 

8endcontroller(S0H) ; 
lenJLow  s  readcontroller( ) ; 
leivjilgh  s  readcontroller( ) ; 
sendcontroller(ACK) ; 
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/•  read  the  packet  •/ 

•plength  a  (256  •  leajiigh)  +  leiulow; 
for  (iaO;  i  <  •plength;  ++i) 

packet[l]  a  readcontroller( ) ; 
sendcontroller(ACK) ; 
rcvflag  a  OK; 

1 

else  canceK);  /•  not  reev'd  OK  •/ 

return( rcvflag) ; 


/•  cancel  -  send  cancel  command  to  controller  •/ 

canceK ) 

{ 

char  reply;  /•  controller's  reply  to  CAN  •/ 

char  status;  /•  also  sends  status  byte  •/ 

/•  send  CAN«  read  reply  and  status  •/ 

sendcontrollerCCAN) ; 
reply  a  readcontroller( } ; 
status  a  readcontroller( ) ; 

} 


/•  find  the  ethernet  station  address  of  the  controller  •/ 

/•  uses  the  ENQ  command,  returns  value  of  address  •/ 

/•  or  -1  if  controller  doesn't  respond,  Je.  timos-out.  •/ 

findaddress( } 

int  status;  /•  status  byte  re.  rned  from  controller  •/ 
/•  send  ENQ  to  controller  •/ 
sendoontroller(ENQ} ; 
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/*  read  status,  read  and  return  address  */ 

If  ((status  s  read_tiiDeout( ) }  Is  -1)  /*  no  time  out  */ 

return(readcontroller()) ;  /*  address  byte  */ 

else  return(-l);  /•  time  out,  so  return  -1  for  error  •/ 

} 


/*  initcontroller  -  open  and  init.  tty  port  to  talk  to  controller  */ 

lnltcontroller( } 

{ 

/•  structure  to  initialize  tty  port  to  controller  •/ 

static  struct  sgttyb  ttyb  s  { 

B9600,  B9600, 

0,  0, 

RAW  I  ANYP 

}; 

int  errorcode  s  O;  /*  returned  error  code  •/ 


/■  open  controller's  tty  port  •/ 

if  (  (controller  s  open(TTY,2))  ss  -1)  /•  couldn't  open  •/ 

V  { 

fprintf(stderr, "Couldn't  open  controller's  port\n"); 
fprintf(stderr, 

"It  must  be  busy  (or  dead).  Try  again  laterNn"}; 
errorcode  s  NOCONTOPEN; 

} 

else  /*  opened  OK  so  configure  port  for  RAW,  9600  baud  */ 
if  (stty( controller, Attyb)  Is  o)  /•  couldn't  configure  •/ 

{ 

fprintf(atderr, 

"Couldn't  configure  controller's  port.Xn"); 
errorcode  s  NOCONFIG; 

) 

else  /•  set  for  exclusive  access  •/ 
ioctK control ler,TIOCEXCL,0) ; 

return( errorcode) ; 

} 


/•  sendoontroller  -  send  a  byte  to  controller  •/ 
sendcontroller( byte) 


char  byte;  /•  byte  to  be  sent  •/ 

{ 

/•  send  the  byte,  print  error  if  not  sent  OK  •/ 


} 


if  (write( controller,  &byte,  1}  1=  1) 

fprintf(stderr, "Can’t  write  controller\n") ; 


/•  read controller  -  returns  byte  read  from  controller  */ 

readcontroller( ) 

{ 

char  byte;  /•  byte  read  in  •/ 

/•  read  byte,  print  error  if  not  read  OK  •/ 

if  (read( control /er,  &byte,  1)  Is  1) 

fprintfCstderr, "Can’t  read  controllerXn" ) ; 
else  return(byte} ; 

) 


/•  read  from  controller  with  time-out.  returns  -1  if  time-out, 
else  returns  byte  read.  */ 

read__tlmeout( ) 

{ 

int  byte;  /•  byte  read  from  controller  */ 

int  onalrmO;  /•  procedwe  when  time-out  occurs  •/ 

/*  set-up  signal,  alarm  for  TIMEOUT  seconds  */ 

timedout  s  F; 
signaKSIGALRM,  onalrm) ; 

alarm( TIMEOUT);  /•  set  alarm  •/ 

read(controller,&byte,1) ; 
if  (timedout  ss  T) 


/•  time-out  occurred  •/ 


} 


alarm(O) ; 
return(byte) ; 


/•  turn  off  edarm  •/ 


/*  sets  time-out  flag  to  T  when  time-out  occurs  */ 

onalrm( } 

{ 


tlmedout  s  T: 
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$CONTHOL  USLINIT 

BEGIN 

COMMENT; 

THIS  PROGRAM  SENDS  AND  RECEIVES  FILES  OVER  THE  ETHERNET 
USING  THE  ’ETHERNET  FILE  TRANSFER  PROTOCOL.’ 

IT  IS  INTENDED  TO  RUN  CONTINUOUSLY  AS  A  STREAMED  JOB  AND 
TAKES  ITS  COMMANDS  TO  SEND/RECEIVE  FILES  BY  LISTENING  TO 
THE  NET. 

ERROR  MESSAGES  ARE  DIRECTED  TO  THE  SYSTEM  CONSOLE. 

END  OF  COMMENT; 


« 


» 


«  GLOBAL  VARIABLE  DECLARATIONS  » 


INTEGER 

CONTIN; 

« 

INTEGER 

CONTOUT; 

« 

INTEGER 

DEST ADDRESS; 

« 

INTEGER 

SRCADDRESS; 

« 

BYTE  ARRAY  MSGB(0;80); 

« 

LOGICAL 

ARRAY  MSG(»)=MSGB(0) 

;« 

INTEGER 

TIMEDOUT; 

« 

« 

INTEGER 

RENAMENUM; 

« 

« 

« 

FILE  #  OF  CONTROLLER  INPUT  PORT  » 
FILE  #  OF  CONTROLLER  OUTPUT  PORT  » 
ADDRESS  DESTINATION  CONTROLLER  » 
ADDRESS  SOURCE  CONTROLLER  » 

I/O  BUFFER  FOR  TERMINAL  » 

PRINT  BUFFER  —  "WORD"  EQUATE  » 
FLAG  INDICATES  THAT  A  TIME-OUT  » 
OCCURRED  WHEN  READING  CONTROLLER  » 
USED  TO  GIVE  A  UNIQUE  NAME  TO  A  » 
FILE  IF  ONE  ALREADY  EXISTS  WITH  » 
THE  SAME  NAME  » 


«  VARIABLES  USED  BY  MAIN  PROGRAM  ONLY  » 


BYTE  ARRAY  C0MPACK(0; 50) ; 

« 

INTEGER  COMLENGTH; 

« 

INTEGER  RFLAG; 

« 

INTEGER  COMTYPE; 

« 

INTEGER  COMSEQNUM; 

« 

INTEGER  NAMELEN; 

« 

« 

COMMAND  PACKET  FROM  REMOTE  MACH.  » 
LENGTH  OF  COMPACK  » 

RECEIVE  FLAG  FOR  COMPACK  » 

TYPE  OF  COMMAND  RECV’ED  » 
SEQUENCE  NUMBER  OF  COMPACK  » 
LENGTH  OF  NAME  IN  DATA  PORTION  » 
OF  COMPACK  » 


«  DEFINE  PACKET  TYPES  » 


EQUATE  ACKFILE 
NAKFILE 
DATAFILE 
ENDFILE 
ENDREFLY 
SENDFILE 


1,  «  PACKET  RECEIVED  OK  BY  RECEIVER  END  » 

2,  «  REQUESTED  FILE  DOES  NOT  EXIST  » 

3,  «  JACKET  CONTAINS  FILE  DATA  » 

5,  «  END  OF  FILE  » 

6,  «  ACK  FOR  ’ENDFILE’  » 

7,  «  PREPARES  RECEIVER  TO  SEND  FILE  NAMED  » 

«  IN  ’DATA’  PORTION  OF  PACKET  >> 
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RECFILE  =  8; 


«  PREPARES  RECEIVER  TO  READ  AND  SAVE  » 
«  FILE  NAMED  IN  ‘DATA*  PORTION  OF  PACKET  » 


«  DEFINE  COMMAND  BYTES  TO/FROM  CONTROLLER  » 

EQUATE  ACK  =  J((l6)06,  «  ACKNOWLEDGEMENT  —  ALL  OK  » 

NAK  =  *(16)15,  «  NEGATIVE  ACK  -  ERROR  HAS  OCCURED  » 

ENQ  =  *(16)05,  «  ENQUIRE  -  RETURN  STATUS  &  ADDRESS  » 

SND  =  *(16)11,  «  SEND  THE  FOLLOWING  PACKET  » 

SOH  =  *(16)01,  «  START  OF  HEADER  -  DEVICE  SENDING  IS  » 

«  REQUESTING  THE  PACKET  LENGTH  » 

REC  =  *(16)12,  «  RECEIVE  PACKET  FROM  ETHERNET  » 

CAN  =  *(16)18;  «  CANCEL  LAST  RECEIVE  REQUEST  » 


«  DEFINE  CONSTANTS  » 

EQUATE  PACKETSIZE  =  126,  «  MAXIMUM  SIZE  OF  PACKETS  » 

DATASIZE  =  PACKETSIZE  -  6,  «  SIZE  OF  DATA  IN  PACKET  » 

MAXCOUNT  =6,  «  MAXIMUM  NUMBER  OF  TRIES  BEFORE  » 

«  ABORTING  TRANSMISSION  ATTEMPT  » 
OK  =  1 ,  «  FLAG  FOR  "0K«  » 

NOTOK  =0,  «  FLAG  FOR  "NOTOK"  » 

TIMEOUT  s  5,  «  ’READ’  TIME-OUT  INTERVAL  » 

NOTIMEOUT  =0,  «  PARAM  FOR  NO  TIME-OUT  ON  READ  » 

TRU  =1,  «  TRUE  FLAG  » 

FALS  =0;  «  FALSE  FLAG  » 


«  INTRINSIC  DECLARATIONS  » 

INTRINSIC  READ , PRINT , BINARY , FREAD , FWRITE , FOPEN , FSETMODE , 
FCONTROL , lOWAIT, GETPRIVMODE, GETUSERMODE .ASCII, 
FCLOSE , FRENAME , PR INTOP ; 


« .  PROCEDURE  DECLARATIONS . » 


«  RWCNTLR  -  READ/WRITE  FROM  CONTROLLER  » 


( 


flD-ni24  448  n  LOCAL  COMPUTER  NETWORK  IHPLENENTRTION  USING  ETHERNET 
(U)  ILLINOIS  UNIV  AT  URBANA  COORDINATED  SCIENCE  LAB 
D  J  LILJR  AUG  82  R-948  NBBa}9--8a-C-B55£ 

UNCLASSIFIED  F.'G  9/2 
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COMMENT:  BECAUSE  OF  THE  LACK  OF  BUFFERING  ON  INPUT  PORTS, 
MUST  FIRST  SET-UP  READ,  THEN  WRITE,  THEN  FINISH 
READ.  THAT  IS,  CONTROLLER  RESPONDS  TOO  QUICKLY 
FOR  HP  TO  CATCH  IN  NORMAL  I/O  ; 


PROCEDURE  RWCNTLR ( INBUFFB , INLEN , OUTBUFFB , OUTLEN , TIME ) ; 


VALUE  OUTLEN,  «  PASS  THESE  BY  VALUE  » 

TIME, 

INLEN; 


BYTE  ARRAY  INBUFFB; 

INTEGER  INLEN; 

BYTE  ARRAY  OUTBUFFB; 

INTEGER  OUTLEN; 
INTEGER  TIME; 


«  INPUT  BUFFER  TO  CONTROLLER  » 

«  RETURNS  WITH  DATA  READ  FROM  CONTROLLER  » 
«  NUMBER  OF  BYTES  TO  READ  FROM  CONT  » 

«  OUTPUT  BUFFER  TO  CONTROLLER  » 

«  ENTER  WITH  DATA  TO  SEND  TO  CONT  » 

«  NUMBER  OF  BYTES  TO  SEND  TO  CONT  » 

«  TIME-OUT  INTERVAL  -  0  MEANS  NO  TIME-OUT  » 


BEGIN 

LOGICAL  ARRAY  INBUFF(»)=INBOFFB(0) ;  «  EQUATE  TO  ELIMINATE  » 
LOGICAL  ARRAY  OOTBUFF(*)rOUTBUFFB(0) ;  «  WARNING  MESGS  » 

INTEGER  DUMMY;  «  HOLDS  RETURNED  VALUE  FROM  lOWAIT,  FREAD  » 
INTEGER  PARAM;  «  USED  IN  FCONTROL  FOR  TIMEOUT  » 

«  INIT.  TIME-OUT  FLAG  » 

TIMEDOUT  ;s  FALS; 

«  SET  TIME-OUT  INTERVAL  » 

PARAM  :s  TIME; 

FCONTROL( CONTIN , 4 , PARAM) ; 

«  SET-UP  READ,  NO  WAIT  FOR  FINISH  » 

DUMMY  ;s  FREAD(CONTIN,IHBUFF,-INLEH); 

«  WRITE  BUFFER  TO  CONTROLLER  » 

FWRITE( CONTOUT , OUTBUFF , -OUTLEN , S320 ) ; 

«  FINISH  READ,  RETURN  BUFFER  AND  LENGTH  » 

DUMMY  ;=  IOWAIT( CONTIN , INBUFF) ; 

IF  <  THEN 
BEGIN 

TIMEDOUT  :=  TRU; 

END; 


END;  «  RWCNTLR  » 


«  FIND  ETHERNET  STATION  ADDRESS  OF  THE  CONTROLLER  USING  ENQ  » 
«  COMMAND.  RETURNS  ADDRESS  IN  'ADDRESS'  PARAMETER.  » 

PROCEDURE  FINDADDRESSC ADDRESS); 

INTEGER  ADDRESS;  «  RETURNS  ETHERNET  STATION  ADDRESS  » 

BEGIN 

•  BYTE  ARRAY  BDFF(0;1);  «  I/O  BUFFER  FOR  CONTROLLER  » 

«  LOAD  'ENQ'  INTO  BUFFER  » 

BUFFCO)  :=  ENQ; 

«  SEND  TO  CONTROLLER,  READ  STATUS  AND  ADDRESS  » 
RWCNTLH(BUFF,2 ,BUFF, 1 , TIMEOUT) ; 

«  RETURN  ADDRESS  IF  NO  TIME-OUT  » 

IF  TIMEDOUT  =  FALS 

THEN  ADDRESS  :s  INTEGER(BUFF(1)) 

ELSE  ADDRESS  :s  0; 

END;  «  FINDADDRESS  » 


«  INITIALIZE  CONTROLLER'S  PORTS,  INIT  STATION  ADDRESSES  » 

PROCEDURE  INITIALIZE; 

BEGIN 

INTEGER  LENGTH;  «  TEMP  STORAGE  OF  RETURNED  VALUE  FROM  READ  » 
INTEGER  CNTLCODE;  «  CONTROL  CODE  FOR  FCONTROL  » 

BYTE  ARRAY  TTYIN(0;8);  «  INPUT  PORT  » 

BYTE  ARRAY  TTYOUT(0;8);  «  OUTPUT  PORT  » 

INTEGER  TEMP;  «  TEMP  VARIABLE  FOR  ADDRESS  INITIALIZATION  » 


«  INIT  TTYIN  AND  TTYOUT  » 

MOVE  TTYIN  ;s  "ENETIN;"; 

MOVE  TTYOUT  ;=  "ENETOUT; "; 

«  OPEN  AND  INIT  CONTROLLER'S  PORTS  » 

GETPRIVMODE;  «  FOR  NO-WAIT  I/O  » 
CONTIN  .'s  FOPEN(  , |60A, 14324,-36, TTYIN)  ; 


IF  <>  THEN  BEGIN  «  CAN’T  OPEN  » 

MOVE  MSGB  :s  "ETHERNET  -  CAN’T  OPEN  INPUT  PORT”; 
PRINTOP(MSG,-32.0); 

END; 

GETUSERMODE;  «  NO  MORE  NEED  FOR  PRIV  MODE  » 

CONTOOT  ;s  FOPEN(  ,»604,»324,-36,TTIOOT) ; 

IF  <>  THEN  BEGIN  «  CAN’T  OPEN  » 

MOVE  MSGB  "ETHERNET  -  CAN’T  OPEN  OUTPUT  PORT"; 

PRINTOP( MSG, -33,0); 

END; 

CNTLCODE  ](074022;  «  SPEED,  TERMTYPE  » 

FCONTROL(CONTIN,37,CNTLCODE);  «  ALLOCATE  TERMTYPE  18  AT  » 
FCONTROL(CONTOUT,37, CNTLCODE);  «  9600  BAUD  » 

FSETMODE(CONTIN,J4);  «  INHIBIT  AUTO  CR-LF  ON  INPUT  » 

FCONTROL(CONTIN, 13, CNTLCODE);  «  ECHO  OFF  » 

FCONTROL( CONTOUT, 1 3 , CNTLCODE) ; 

FCONTROLCCONTIN, 20, CNTLCODE);  «  DISABLE  INPUT  TIMER  » 

PCONTROL(CONTIN, 28, CNTLCODE);  «  DISABLE  BLOCK  MODE  » 
FCONTROL( CONTOUT, 28 , CNTLCODE) ; 

FCONTROLCCONTIN, 27, CNTLCODE);  «  ENABLE  BINARY  TRANSFERS  » 
FCONTROLCCONTOUT, 27, CNTLCODE) ; 

CNTLCODE  :=  0; 

FCONTROLCCONTIN, 36, CNTLCODE);  «  NO  PARITY,  FULL  8  BITS  » 
FCONTROLC  CONTOUT, 36 , CNTLCODE) ; 


«  INIT.  SRC  AND  DEST  ADDRESSES.  ASSUMES  ONLY  2  STATIONS  » 
FINDADDRESSCTEMP) ; 

IF  TIMEDOUT  «  TRU  «  CONTROLLER  DEAD  » 

THEN  BEGIN  «  PRINT  ERROR  MESSAGE  » 

MOVE  MSGB  :s  "ETHERNET  CONTROLLER  IS  DEAD.  TRY  RESETTING. 
PRINT0PCMSG,-43,0); 

END  «  THEN  » 

ELSE  «  INIT.  ADDRESSES  » 

IF  TEMP  s  JC16)1F 
THEN  BEGIN 

SRCADDRESS  :=  !^C16)1F; 

DEST ADDRESS  :s  KC16)2F; 

END 

ELSE  BEGIN 

SRCADDRESS  :s  !(Cl6)2F; 

DESTADDRESS  :s  ;^Cl6)1F; 
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END; 

END;  «  INITIALIZE  » 


«  SENDPACKET  -  SEND  A  SINGLE  PACKET.  ADDRESSES  ARE  EMBEDDED  » 

«  WITHIN  THE  PACKET.  RETURNS  XMITFLAG  s  OK  IF  GOOD  » 

«  TRANSMISSION,  NOTOK  OTHERWISE.  LEAVES  PACKET  UNCHANGED.  » 

PROCEDURE  SENDPACKET(PACKET,LENGTH,ZMITFLAG) ; 

VALUE  LENGTH;  «  PASS  BY  VALUE  » 

BYTE  ARRAY  PACKET;  «  PACKET  TO  BE  SENT  WITH  EMBEDDED  ADDRESS  » 

INTEGER  LENGTH;  «  LENGTH  OF  PACKET  IN  BYTES  » 

INTEGER  XMITFLAG;  «  RETURNS  'OK*  OR  'NOTOK*  » 

BEGIN 

BYTE  ARRAY  BUFF( 0:1);  «  BUFFER  FOR  SENDING  COMMANDS  » 

«  TO/FROM  CONTROLLER  » 

«  INIT  XMITFLAG  » 

XMITFLAG  :=  NOTOK; 

«  READY  CONTROLLER  TO  XMIT  BY  SENDING  'SND'.  » 

«  READ  REPLY  AND  STATUS  » 

BUFF(O)  ;=  SND; 

RWCNTLRCBUFF, 2, BUFF, 1, TIMEOUT);  «  SEND  1  BYTE,  READ  2  BYTES  » 

IF  BDFF(O)  s  SOH  AND  TIMEDOUT  »  FALS  «  REPLY  IS  SOH  » 

THEN  BEGIN  «  SEND  LENGTH,  READ  REPLY  AND  STATUS  » 

BUFF(O)  ::  BYTE(LENGTH.(8:8));  «  LOW-ORDER  8  BITS  » 

BUFF(I)  :s  BYTE(LENGTH.(0:8));  «  HIGH-ORDER  8  BITS  » 
RWCNTLR( BUFF, 2, BUFF, 2, TIMEOUT);  «  READ/WRITE  2  BYTES  » 

IF  BUFF(O)  =  ACK  «  CONTROLLER  READY  FOR  PACKET  » 

THEN  BEGIN  «  SEND  PACKET,  READ  REPLY,  STATUS  » 

RWCNTLR( BUFF, 2 , PACKET, LENGTH , TIMEOUT) ; 

IF  BUFF(O)  8  ACK  «  XMIT  OK  » 

THEN  XMITFLAG  OK; 

END; 

END; 


END;  «  SENDPACKET  » 


«  CANCEL  -  SEND  CANCEL  COMMAND  TO  CONTROLLER  » 


PROCEDURE  CANCEL; 

BEGIN 

BYTE  ARRAY  B0FF(0;1);  «  BUFFER  FOR  COMMANDS  TO/FROM  CONT  » 

«  SEND  ‘CAN',  READ  REPLY  AND  STATUS  » 

BUFFCO)  CAN; 

RWCNTLR( BUFF, 2, BUFF, 1, TIMEOUT);  «  SEND  1  BYTE,  READ  2  » 

END;  «  CANCEL  » 


«  RECVPACKET  -  RECEIVES  A  PACKET  FROM  THE  ETHERNET  WITH  THIS  » 
«  STATION'S  ADDRESS  OR  THE  BROADCAST  ADDRESS.  RETURNS  WITH  » 
«  RCVFLAG  =  OK  IF  RECEIVED  OK,  NOTOK  OTHERWISE.  CANCELS  » 
«  RECEIVE  COMMAND  (WITH  'CAN')  IF  NOT  RECEIVED  OK.  » 
«  ALLOWS  SETTING  OF  TIME-OUT  INTERVAL  FOR  READ  OF  CONTROLLER  » 


PROCEDURE  RECVPACKET(PACKET,LENGTH,RCVFLAG,TIME) ; 


VALUE  TIME; 


«  PASS  BY  VALUE  » 


BYTE  ARRAY  PACKET; 
INTEGER  LENGTH; 
INTEGER  RCVFLAG; 
INTEGER  TIME; 


«  RETURNS  WITH  PACKET  RECEIVED  » 

«  RETURNS  LENGTH  OF  RECEIVED  PACKET  » 

«  RETURNS  *OK*  OR  'NOTOK'  » 

«  INDICATES  TIME-OUT  INTERVAL  TO  WAIT  FOR  » 
«  PACKET.  0  MEANS  WAIT  FOREVER.  » 


BEGIN 

BYTE  ARRAY  BUFF(0:1);  «  BUFFER  FOR  SENDING  COMMANDS  » 

«  TO/FROM  CONTROLLER  » 

«  INIT.  FLAG  » 

RCVFLAG  :*  NOTOK; 

«  TELL  CONTROLLER  TO  RECEIVE  PACKET.  WAITS  UNTIL  PACKET  » 
«  IS  RECEIVED.  » 

BUFF(O)  :«  REC; 
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IWCNTLR(BIIFF,2,B0FF,1,TIME);  «  SEND  1  BYTE,  HEAD  2  BYTES  » 

«  CHECK  IF  PACKET  RECEIVED  OK  » 

IF  BUFF(O)  a  ACK  AND  TIMEDOOT  a  FALS  «  PACKET  OK  » 

THEN  BEGIN 

«  SEND  'SOH',  READ  LENGTH  » 

BUFF(O)  :a  SOH; 

RWCNTLH(B0FF,2,B0FF,1,TIME);  «  SEND  1  BYTE,  HEAD  2  BYTES  » 
LENGTH  :a  256  •  BDFF(l)  ♦  BDFF(O); 

«  SEND  'ACK',  READ  PACKET  » 

BUFF(O)  :a  ACK; 

RVCNTLR(PACKET,LENGTH,BOFF, 1 ,TIME) ; 

«  SEND  CONTROLLER  FINAL  »ACK'  » 

BOFF(O)  :a  ACK; 

HHCNTLR(BUFF,0,BOFF,1,TIME);  «  SEND  1  BYTE,  READ  NO  BYTES  » 

«  RETURN  FLAG  'OK*  » 

RCVFLAG  :a  OK; 

END  «  THEN  » 

ELSE  CANCEL;  «  NOT  RECEIVED  OK,  SO  CANCEL  »REC»  » 

END;  «  RECVPACKET  » 


«  ASSEMBLE  -  ASSEMBLE  A  PACKET  INTO  THE  REQUIRED  FORM  » 

«  ENTER  ROUTINE  WITH  DATA  ALREADY  STORED  IN  HIGH  PART  OF  PACKET  » 

PROCEDURE  ASSEM(PACKTYPE,SEQNUH,DATALEN, PACKET, PACKLEN) ; 

VALUE  PACKTYPE,  «  PASS  THESE  BY  VALUE  » 

SEQNUM, 

DATALEN; 


INTEGER  PACKTYPE; 

« 

INTEGER  SEQNUM; 

« 

INTEGER  DATALEN; 

« 

BYTE  ARRAY  PACKET; 

« 

INTEGER  PACKLEN; 

« 

BEGIN 

«  ASSEMBLE  THE 

PACKET 

» 


» 


PACKET(O)  :a  BYTE(DESTADDRESS) ; 


PACKET(I)  :s  BYTE(SRCADORESS) ; 

PACKET(2)  :=  BYTECPACKTYPE) ; 

PACKETO)  BYTE(  SEQNUM) ; 

PACKET(i»)  :b  BYTE(DATALEN.(0:8));  «  HIGH-ORDER  8  BITS  » 

PACKET(5)  BYTE(DATALEN.(8:8)) ;  «  LOW-ORDER  8  BITS  » 

«  RETURN  PACKET  LENGTH  » 

PACKLEN  :*  DATALEN  +6;  «  ADD  HEADER  BITES  » 

END;  «  ASSEM  » 


«  DISASSEM  -  DISASSEMBLE  A  RECEIVED  PACKET  INTO  COMPONENT  PARTS  » 

PROCEDURE  DISASSEM( PACKET, PACKTYPE , SEQNUM, DATALEN) ; 

BYTE  ARRAY  PACKET;  «  PACKET  TO  BE  DISASSEMBLED  » 

INTEGER  DATALEN;  «  RETURNED  LENGTH  OF  FDATA  » 

INTEGER  PACKTYPE;  «  RETURNED  TYPE  OF  PACKET  » 

INTEGER  SEQNUM;  «  RETURNED  SEQUENCE  NUMBER  » 

BEGIN 

«  DISASSEMABLE  THE  PACKET  » 

PACKTYPE  :s  INTEGER( PACKET( 2) ) ; 

SEQNUM  :s  INTEGER(PACKET(3) ) ; 

DATALEN  :«  INTEOER(256  •  PACKET(4)  *  PACKET(5)); 

END;  «  DISASSEM  » 


«  INCSEQ  -  INCREMENT  A  SEQUENCE  NUMBER  » 
PROCEDURE  INCSEQCN); 

INTEGER  N; 

BEGIN 

N  :«  (N  1)  MOD  256; 

END;  «  INCSEQ  » 
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«  RENAME  -  RENAMES  A  FILE  B7  ADDING  OR  REPLACING  THE  LAST 
CHARACTER  IN  THE  FILENAME  WITH  THE  ASCII  EQUIVALENT  OF 
THE  GLOBAL  VARIABLE  RENAMENUM. 

A  FILENAME  IS  OF  THE  FORM  • FILENAME. GROUP. ACCOUNT ; * 

WHERE  THE  GROUP  AND  ACCOUNT  ARE  OPTIONAL.  » 

PROCEDURE  RENAME(FILENUM,OLDNAME); 

INTEGER  FILENUM;  «  FILE  DESCRIPTOR  » 

BYTE  ARRAY  OLDNAME;  «  OLD  NAME  OF  THE  FILE  » 

BEGIN 

BYTE  ARRAY  NEWNAME(0:30) !  «  NEW  NAME  OF  FILE  » 

INTEGER  NEWI;  «  INDEX  FOR  NEWNAME  » 

INTEGER  OLDI;  «  INDEX  FOR  OLDNAME  » 

INTEGER  TEMP;  «  TEMP.  FOR  USE  IN  ASCII  CALL  » 

«  MOVE  OLD  NAME  INTO  NEW  NAME  UNTIL  FIND  ;  OR  .  » 

OLDI  0; 

NEWI  :s  0; 

DO  BEGIN 

NEWNAME(NEWI)  :s  OLDNAME ( OLDI ) ; 

NEWI  : s  NEWI  *  1 ; 

OLDI  :s  OLDI  *  1; 

END 

UNTIL  OLDNAME(OLDI)  a  »;»  OR  OLDNAME(OLDI)  a  ; 

«  IF  8  CHARS.  IN  FILENAME,  REPLACE  LAST  CHAR.  WITH  RENAMENUM, 
ELSE  APPEND  RENAMENUM  TO  FILENAME.  » 

IF  OLDI  a  8 

THEN  «  REPLACE  LAST  CHAR  » 

TEMP  :a  ASCII(RENAMENUM,10,NEWNAME(NEWI  -  1}) 

ELSE  BEGIN  «  APPEND  NEW  CHAR  » 

TEMP  :a  ASCII(RENAMENUM,10,NEWNAME(NEWI}); 

NEWI  :a  NEWI  -i-  1 ;  «  POINT  TO  NEXT  CHAR.  » 

END;  «  ELSE  » 

«  MOVE  REMAINING  CHARS.  » 

DO  BEGIN 

NEWNAME(NEWI)  :a  OLDNAME ( OLDI ) ; 

NEWI  :a  NEWI  +  1; 

OLDI  :a  OLDI  *  1; 

END 

UNTIL  OLDNAKE(OLDI)  a  ; 


«  APPEND  A  : 
NEWNAHE(NEtfI} 


» 

:s  »;»  ; 

«  RENAME  THE  FILE  » 
FRENAME(FILENUM,NEHNAME) ; 

«  INCREMENT  RENAMENUM  » 

RENAMENUM  :x  (RENAMENUM  -i.  1)  MOD  10; 

END;  «  RENAME  » 


«  SENDERRORFREE  >  SENDS  A  PACKET  AND  WAITS  FOR  AN 
RECEIVER.  IF  NO  ACK,  TIMES  OUT  AND  RETRANSMITS 
PACKET  COMES  OR  IT  HAS  TRIED  MAXCOUNT  TIMES. 

RETURNS  THE  TTPE  OF  PACKET  RECEIVED,  IF  ONE  WAS 
«NOTOK«  IF  NO  PACKET  RECEIVED  AT  ALL. 

PROCEDURE  SENDERRORFREE( PACKET , LENGTH , RCVTYPE ) ; 

BYTE  ARRAY  PACKET;  «  PACKET  TO  BE  SENT  » 

INTEGER  LENGTH;  «  LENGTH  OF  PACKET  IN  BYTES  » 

INTEGER  RCVTYPE;  «  RETURNS  NOTOK,  OR  TYPE  OF  PACKET  RECV»ED  » 

BEGIN 

BYTE  ARRAY  RCVPACK(0:50} ; 

INTEGER  RLENGTH; 

INTEGER  RCVFLAG; 

INTEGER  XMITFLAG; 

INTEGER  COUNT; 

«  INIT.  VARIABLES  » 

COUNT  :x  0; 

RCVFLAG  :s  NOTOK; 

«  SEND  THE  PACKET,  WAIT  FOR  ACK,  RETRANSMIT  UP  TO  MAXCOUNT  » 
WHILE  RCVFLAG  x  NOTOK  AND  COUNT  <  MAXCOUNT  DO 
BEGIN 

SENDPACKETC  PACKET , LENGTH , XMITFLAG ) ; 

RECVPACKET( RCVPACK , RLENGTH , RCVFLAG , TIMEOUT) ; 

COUNT  :x  COUNT  +  1; 


«  RECEIVED  ACK  PACKET  » 

«  LENGTH  OF  RECV'ED  PACKET  » 

«  FLAG  RETURNED  FROM  >RECVFACKET'  » 
«  FLAG  RETURNED  FROM  'SENDPACKET*  » 
«  NUMBER  OP  XMIT  ATTEMPTS  » 


ACK  FROM  THE 
UNTIL  A 

RECEIVED,  OR 

» 


«  CHECK  IF  A  PACKET  HAS  RECEIVED  » 

IF  RCVFLAG  s  OK 

THEN  RCVTIPE  :s  INTEGER(RCVPACK(2))  «  RETURN  TYPE  » 
ELSE  RCVTYPE  :s  NOTOK; 

END;  «  SENDERRORFREE  » 


«  SENDAFILE  -  SENDS  A  FILE  TO  THE  REMOTE  MACHINE  USING  A  STOP> 
AND-HAIT  PROTOCOL  WITH  POSITIVE  ACKNOWLEDGEMENT  AND  RETRANS¬ 
MISSION. 

ENTER  THIS  ROUTINE  WITH  THE  FILE  DESCRIPTOR  (IE.  THE  FILE  MUST 
ALREADY  BE  OPENED)  AND  THE  REMOTE  MACHINE  READY  AND  WAITING  TO 
RECEIVE  THE  FILE.  » 

PROCEDURE  SEHDAFILE(FILENUM); 

INTEGER  FILENUM;  «  FILE  DESCRIPTOR  OF  OPENED  FILE  TO  SEND  » 
BEGIN 

BYTE  ARRAY  PACKET(0:PACKETSIZE) ;  «  PACKETS  TO  SEND  » 

INTEGER  PACKLEN;  «  LENGTH  OF  PACKETS  » 

INTEGER  DATALEN;  «  LENGTH  OF  DATA  PORTION  » 

INTEGER  SEQNUM;  «  SEQUENCE  NUMBER  OF  PACKETS  » 

INTEGER  ACKFLAG;  «  INDICATES  IF  PACKETS  ARE  BEING  ACKED  » 
INTEGER  EOF;  «  END  OF  FILE  FLAG  » 

INTEGER  TEMP;  «  TEMPORARY  » 

«  INIT  VARIABLES  » 

SEQNUM  :s  1; 

ACKFLAG  :s  ACKFILE; 

EOF  FALS; 

«  READ  FIRST  DATA  RECORD  » 

DATALEN  FREAD(FILENUM,PACKET(6) ,-DATASIZE) ; 

IF  <>  «  EOF  OR  ERROR  » 

THEN  EOF  :s  TRU; 

«  XMIT  PACKETS  UNTIL  END-OF-FILE  » 

WHILE  EOF  s  FALS  AND  ACKFUO  «  ACKFILE  DO 
BEGIN 

«  ASSEMBLE  AND  SEND  THE  PACKET  » 

ASSEM( DATAFILE , SEQNUM , DATALEN , PACKET , PACKLEN) ; 
SENDERRORFREE( PACKET, PACKLEN, ACKFLAG) ; 


«  GET  NEXT  DATA  RECORD  » 

DATALEN  :s  FREAD(FILENUH,PACKET(6) ,-DATASIZE) ; 
IF  <>  «  EOF  OR  ERROR  » 

THEN  EOF  is  TRU; 

INCSEQCSEQNGM); 

END;  «  WHILE  » 

«  SEND  'ENDFILE',  WAIT  FOR  ACE  » 

ASSEM( ENDFILE , SEQNUM , 0 , PACKET » PACKLEN) ; 
SENDERRORFREE( PACKET, PACKLEN, ACKFLAG) ; 

«  SEND  'ENDREPLY* ,  NO  WAIT  FOR  ACK  » 

INCSEQC SEQNUM) ; 

ASSEM( ENDREPLY , SEQNUM, 0 , PACKET, PACKLEN) ; 
SENDPACKET( PACKET, PACKLEN, TEMP) ; 


END;  «  SENDAFILE  » 


«  HP 'IS ’SOURCE  -  SENDS  A  FILE  FROM  THE  HP  TO  THE  REMOTE  MACHINE 
USING  THE  'SENDAFILE*  ROUTINE  AFTER  CHECKING  TO  MAKE  SURE  THE 
FILE  REALLY  EXISTS.  IF  IT  DOESN'T,  IT  SENDS  A  'NAKFILE'  TO 
THE  REMOTE  MACHINE. 

THE  FILENAME  PASSED  AS  AN  ARGUMENT  SHOULD  END  IN  A  ' ; '  TO  MAKE 
THE  FILE  SYSTEM  HAPPY.  » 

PROCEDURE  HP ' IS ' SOURCE( FILENAME) ; 

BYTE  ARRAY  FILENAME;  «  NAME  OF  FILE  TO  SEND  » 

BEGIN 

INTEGER  FILENUM;  «  FILE  DESCRIPTOR  RETURNED  BY  FOPEN  » 

BYTE  ARRAY  PACKET(0:20) ;  «  PACKET  USED  TO  ACK  OR  NAK  » 

INTEGER  PACKLEN;  «  LENGTH  OF  PACKET  » 

INTEGER  XMITFLAG;  «  FLAG  RETURNED  BY  'SENDPACKET*  » 

«  OPEN  THE  FILE,  IF  IT  EXISTS  » 

FILENUM  :s  FOPEN(FILENAME,|^7»0,-DATASIZE) ; 

IF  <  «  ERROR,  FILE  NOT  OPENED  (DOESN'T  EXIST)  » 

THEN  BEGIN  «  SEND  'NAKFILE'  PACKET  » 
ASSEM(NAKFILE,0,0,PACKET,PACKLEN) ; 
SENDPACKET(PACKET,PACKLEN,ZHITFLAG) ; 
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END  «  THEN  » 

ELSE  BEGIN  «  SEND  'ACKFILE*  AND  SEND  THE  FILE  » 
ASSEMC  ACKFILE, 0 , 0 , PACKET, PACKLEN) ; 

SEND^ iCFET( PACKET, PACKLEN, XMITFLAG) ; 
SENDAFILECFILENUM) ; 

FCLOSE( FILENUM, 0,0); 

END;  «  ELSE  » 

END;  «  HP ‘IS* SOURCE  » 


«  RECVAFILE  -  RECEIVES  A  FILE  FROM  THE  REMOTE  MACHINE  USING  A 
STOP-AND-WAIT  PROTOCOL.  ACKS  ALL  RECEIVED  PACKETS  AND  SAVES 
NON-DUPLICATED  PACKETS. 

ENTER  THIS  ROUTINE  WITH  THE  FILE  DESCRIPTOR  (IE.  THE  FILE  MUST 
ALREADY  BE  OPENED)  AND  THE  REMOTE  MACHINE  ALL  READY  TO  BEGIN 
SENDING  DATA  PACKETS.  » 

PROCEDURE  RECVAFILEC FILENUM) ; 


INTEGER  FILENUM;  «  FILE  NUMBER  OF  OPENED  FILE  IN  WHICH 

TO  STORE  THE  INCOMING  PACKETS  » 


BEGIN 

BYTE  ARRAY  PACKET(0:PACKETSIZE) ;  «  RECEIVED  PACKET  » 


INTEGER  PACKLEN;  « 
INTEGER  RCVFLAG;  « 
INTEGER  PACKTYPE;  « 
INTEGER  DATALEN;  « 
INTEGER  SEQNUM;  « 
INTEGER  EZPECTNUM;  « 
INTEGER  DONEFLAG;  « 
INTEGER  XMITFLAG;  « 


«  INIT.  VARIABLES  » 
PACKTYPE  :s  DATAFILE; 
EXPECTNUM  :=  1; 


LENGTH  OF  RECEIVED  PACKET  » 
STATUS  OF  RECEIVED  PACKET  » 
TYPE  OF  RECEIVED  PACKET  » 
LENGTH  OF  DATA  PORTION  » 
SEQUENCE  NUMBER  OF  PACKET  » 
EXPECTED  SEQUENCE  NUMBER  » 
INDICATES  WHEN  FINISHED  » 
FLAG  RETURNED  BY  SENDPACKET  » 


«  RECEIVE,  ACK,  AND  STORE  PACKETS  UNTIL  'ENDFILE*  RECEIVED  » 
WHILE  PACKTYPE  =  DATAFILE  DO 
BEGIN 

RECVFACKETC  PACKET, PACKLEN, RCVFLAG, TIMEOUT) ; 

IF  RCVFLAG  a  OK  «  PACKET  RECEIVED  OK  » 

THEN  BEGIN 

DISASSQK  PACKET, PACKTYPE , SEQNUM, DATALEN) ; 


«  IF  DATA  PACKET  AND  NOT  A  DUPLICATE  » 

IF  PACKTYPE  a  DATAFILE  AND  SEQNUH  a  EXPECTNUM 

THEN  BEGIN  «  SAVE  PACKET  AND  INCREMENT  EXPECTNUM  » 
FHRITE(FILENUM,PACKET(6) ,-DATALEN,^320) ; 

INCSEQ( EXPECTNUM) ; 

ENDj  «  THEN  » 

«  ACK  THE  PACKET  » 

ASSEM( ACKFILE , SEQNUM , 0 , PACKET , PACKLEN) ; 

SENDPACKET( PACKET, PACKLEN, XMITFLAG) ; 

END;  «  THEN  » 

END;  «  WHILE  » 

«  PERFORM  END-DALLY  SEQUENCE  OF  PROTOCOL: 

WAIT  FOR  »ENDREPLY»  (TO  ‘ACK*  OF  ‘ENDFILE')  OR  TIMEOUT, 
WHICHEVER  COMES  FIRST.  TIMEOUT  OR  'ENDREPLY*  BOTH  MEAN 
DONE.  IF  RECV'ED  PACKET  IS  'ENDFILE* ,  SENDER  DIDN'T  GET 
LAST  ACK,  SO  RETRANSMIT  IT.  » 

DONEFLAG  :a  FALS; 

WHILE  DONEFLAG  a  FALS  DO  «  WAIT  FOR  TIMEOUT  OR  ENDREPLY  » 
BEGIN 

RECVPACKET( PACKET, PACKLEN, RCVFLAG, TIMEOUT) ; 

IF  RCVFLAG  a  OK  «  SOME  PACKET  RECV'ED  OK  » 

THEN  BEGIN  «  SEE  WHAT  KIND  OF  PACKET  IT  IS  » 

DISASSEMC  PACKET , PACKTYPE , SEQNUM, DATALEN) ; 

IF  PACKTYPE  a  ENDREPLY  «  GOT  ACK,  SO  DONE  » 

THEN  DONEFLAG  :a  TRU 

ELSE  BEGIN  «  RETRANSMIT  THE  ACK  » 

ASSEM( ACKFILE , SEQNUM, 0 , PACKET , PACKLEN) ; 

SENDPACKET( PACKET, PACKLEN, XMITFLAG) ; 

END;  «  ELSE  » 

END  «  THEN  » 

ELSE  «  TIMED  OUT,  SO  DONE  » 

DONEFLAG  :a  TRU; 

END;  «  WHILE  » 

END;  «  RECVAFILE  » 


«  HP'IS'DEST  -  RECEIVES  A  FILE  FROM  THE  REMOTE  MACHINE  USING  THE 
'RECVAFILE'  ROUTINE  AND  SAVE  IT  ON  DISK.  IF  A  FILE  WITH  THE 
SAME  NAME  ALREADY  EXISTS,  THIS  ROUTINE  WILL  RENAME  THE  FILE, 


THEN  SAVE  IT. 

THE  FILENAME  GIVEN  AS  AN  AHGOMENT  SHOULD  BE  TERMINATED  WITH 
A  • ; •  TO  MAKE  THE  FILE  SYSTEM  HAPPY.  » 

PROCEDURE  HP • IS • DEST( FILENAME ) } 

BYTE  ARRAY  FILENAME;  «  NAME  TO  CALL  RECEIVED  FILE  » 

BEGIN 

INTEGER  FILENUM;  «  FILE  DESCRIPTOR  RETURNED  BY  FOPEN  » 

BYTE  ARRAY  PACKET(0:20) ;  «  PACKET  USED  TO  ACK  » 

INTEGER  PACKLEN;  «  LENGTH  OF  PACKET  » 

INTEGER  XMITFLAG;  «  FLAG  RETURNED  BY  'SENDPACKET*  » 

«  OPEN  THE  FILE  AS  A  »NEW»  FILE  » 

FILENUM  :=  F0PEN(FILENAME,]^4»!^101  ,-DATASIZE) ; 

IF  <>  «  COULDN’T  OPEN  THE  FILE  » 

THEN  BEGIN 

MOVE  MSGB  ::  "ETHERNET  >  CAN'T  OPEN  A  NEW  FILE"; 
PRINTOP(MSG,-32»0); 

END  «  THEN  » 

ELSE  BEGIN 

«  ACK  THE  'RECFILE'  PACKET  » 

ASSEMCACKFILE, 0,0, PACKET, PACKLEN) ; 

SENDPACKET( PACKET, PACKLEN,XMITFLAG) ; 

«  RECEIVE  THE  FILE  » 

RECVAFILE( FILENUM) ; 


«  CLOSE  THE  FILE  AS  A  PERMANENT  FILE  » 
FCLOSEC FILENUM, 1,0); 

IF  <>  «  FILE  NOT  CLOSED  » 

THEN  BEGIN  «  RENAME  THE  FILE  » 
RENAME(FILENUM,FILENAHE) ; 

FCLOSE( FILENUM, 1,0); 

END;  «  THEN  » 

END;  «  ELSE  » 

t  .  END;  «  HP'IS'DEST  » 


« 


MAIN  PROGRAM 


» 


«  MAIN  PROGRAM  (NETWORK  DEMON)  -  LISTENS  FOR  A  COMMAND  PACKET  ON  THE 
ETHERNET.  IF  TYPE  OF  PACKET  IS  'SENDFILE* ,  IT  CONTAINS  THE 
NAME  OF  A  FILE  FOR  THE  HP  TO  SEND  TO  THE  REMOTE  MACHINE.  IF  THE 
TYPE  OF  PACKET  IS  'RECFILE*,  IT  MEANS  THE  HP  SHOULD  PREPARE  TO 
RECEIVE  A  FILE  FROM  THE  REMOTE  MACHINE  AND  STORE  IT  WITH  THE  NAME  IN 
THE  DATA  PORTION  OF  THE  PACKET.  » 

«  INIT.  CONTROLLER’S  I/O  PORTS,  INIT.  STATION  ADDRESSES,  ETC.  » 
MOVE  MSGB  ::  "ETHERNET  IS  INITIALIZING"; 

PRINTOP(MSG,-2M,0)| 

INITIALIZE; 

RENAMENUM  :s  0;  «  INITIALIZE  IT  » 

«  LOOP  FOREVER  » 

WHILE  TRU  DO 
BEGIN 

«  WAIT  FOREVER  UNTIL  A  PACKET  ARRIVES  ON  NET  » 

RECVPACKET( COMPACK, COMLENGTH , RFLAG, NOTIMEOUT) ; 

IF  RFLAG  s  OK  «  PACKET  RECV'ED  OK  » 

THEN  BEGIN 

«  DISASSEMBLE  THE  PACKET  » 

DIS ASSEM( COMPACK , COMTYPE , COHSEQNUM , NAMELEN ) ; 

«  TERMINATE  FILE  NAME  WITH  A  FOR  THE  FILE  SYSTEM  » 
COMPACK( COMLENGTH)  :=  ";"; 

«  SEND  OR  RECEIVE  THE  FILE  AS  APPROPRIATE,  SUPPLYING  THE  » 

«  FILE  NAME  AS  AN  ARGUMENT  » 

IF  COMTYPE  s  RECFILE 
THEN  HP’IS’DEST(COMPACK(6)) 

ELSE 

IF  COMTYPE  s  SENDFILE 
THEN  HP'IS’SOURCE(COMFACK(6)) 

ELSE  BEGIN  «  ERROR  » 

MOVE  MSGB  :s  "ETHERENT  -  RECEIVED  UNKNOWN  COMMAND"; 
PRINT0P(MSG,-35,0); 

END;  «  ELSE  » 

END;  «  THEN  » 

END;  «  WHILE  » 
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